Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];

Вниз

Отображение приложения в Ctrl+Alt+Delete   Найти похожие ветки 

 
Delphimun   (2002-01-06 18:46) [0]

Хочу наконец разобраться, как скрыть арограмму от Ctrl+Alt+Delete, но никак не могу
Вот Код программы, где она должна скрыться от Ctrl+AltDelete, но компилятор выдаёт ошибки:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);

private
{ Private declarations }

public
{ Public declarations }
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external "KERNEL32.DLL";
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
//Hide
if not (csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 1);
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
//Show
if not (csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 0);
end;
end.

Компилятор выделяет красным строку: function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external "KERNEL32.DLL";
end;

Об статистических ошибках пишет следующее:

[Error] Unit1.pas(21): Field definition not allowed after methods or properties
[Error] Unit1.pas(22): Type expected but "END" found
[Error] Unit1.pas(21): Unsatisfied forward or external declaration: "TForm1.RegisterServiceProcess"
[Fatal Error] Project2.dpr(5): Could not compile used unit "Unit1.pas"

Помогите разобраться и убрать ошибки

Заранее благодарен.


 
Dmitriy_R   (2002-01-06 18:58) [1]

Попробуй вот так-
var
FormMain: TFormMain;

implementation

uses UnitForm, UnitFormClient;
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external "KERNEL32.DLL";

{$R *.dfm}


 
Dmitriy_R   (2002-01-06 19:00) [2]

Ну в смысле ты понял где попробуй поставить Function


 
Delphimun   (2002-01-06 19:05) [3]

Dmitriy_R >
Большое спасибо, всё работает!


 
Delphimun   (2002-01-06 19:14) [4]

У меня возник ещё один вопрос на эту тему;

А как зделать тоже самое, но в приложении без формы?

Тоесть меня интересует где нужно писать:

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external "KERNEL32.DLL";

Заранее благодарен.


 
Dmitriy_R   (2002-01-06 19:19) [5]

Если я не ошибаюсь то попробуй поставить просто в implementation а при первом запуске он тебя спросит и сам поставит куда надо.


 
Delphimun   (2002-01-06 19:23) [6]

Вот код приложения без формы:

program Project1;

uses
SysUtils,
Psock,
NMsmtp;

var
mysmtp: tnmsmtp;
Begin
mysmtp := TNMsmtp.create(nil);
Mysmtp.PostMessage.FromAddress := "Delphimun@rambler.ru";
Mysmtp.PostMessage.ToAddress.Text := "Delphimun@rambler.ru";
Mysmtp.PostMessage.Body.Text := "Hello I";
Mysmtp.Host := "pop.rambler.ru";
mysmtp.PostMessage.Attachments.Add("C:\scandisk.log");
Mysmtp.Port := 25;
Mysmtp.Connect;
Mysmtp.SendMail;
Mysmtp.Disconnect;
Mysmtp.Destroy;

end.

Здесь нет implienation, как зделать такое приложение невидемым в Ctrl+Alt+Delete?


 
Tosov   (2002-01-06 23:16) [7]

Delphimun © (06.01.02 19:23)
По моему - если у тебя не консольное приложение- его и не будет видно в C+A+D


 
Вадим   (2002-01-07 02:33) [8]

2Tosov
Ты ошибаешься


 
Delphimun   (2002-01-07 06:57) [9]

У меня его в ctrl+Alt+Delete хорошо видно



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.018 c
14-75671
Дремучий
2001-11-26 22:33
2002.01.24
Требования к баннерам ....


3-75530
Аркадий
2001-12-21 17:42
2002.01.24
Delphi - BDE - MS SQL login failed


4-75718
Serega__2
2001-11-23 15:37
2002.01.24
Синхронизация ScrollBar`ов у двух TCheckListBox


3-75487
Котелок
2001-12-20 06:08
2002.01.24
И снова BDE -((


1-75613
Трынкин Сергей
2002-01-08 11:28
2002.01.24
Подскажите пожалуйста где взять ADOExpress Update Pack 1





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский