Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.19;
Скачать: CL | DM;

Вниз

Ctrl+alt+del   Найти похожие ветки 

 
Demon Hunter ©   (2003-06-02 13:20) [0]

Как сделать чтоб прога не видна была чере3 ctrl+alt+del


 
Ann ©   (2003-06-02 13:24) [1]

посмотри в FAQ


 
Walera   (2003-06-02 14:01) [2]

Только Win 98/ME
Под NT надо создавать сервис.
-------------------------------------------------------


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;

type TRegisterServiceProcess = Function(dwProcessId,dwType:DWORD):DWORD stdcall;


type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
Var Kernel32Inst:HInst;
pRegisterServiceProcess:TRegisterServiceProcess;
begin
Kernel32Inst:=LoadLibrary("KERNEL32.DLL");
@pRegisterServiceProcess:=GetProcAddress (Kernel32Inst,"RegisterServiceProcess");
pRegisterServiceProcess(0,1);
FreeLibrary(Kernel32Inst);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowMessage("I`m in Memory!");
end;

end.


 
AbrosimovA   (2003-06-03 08:51) [3]

Есть готовый компонент Stealth. Ставишь его на форму, устанавливаешь для Stealth свойство HideApp в True и всё.



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

Текущий архив: 2003.06.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
9-60011
Sword-Fish
2003-01-12 23:50
2003.06.19
Работа с ресурсами


3-60065
sony1
2003-05-28 13:08
2003.06.19
Как выбрать из view первые 100 записей например ?


9-60008
fsn
2002-12-19 01:04
2003.06.19
DELPHI X


6-60298
korvet
2003-04-18 10:55
2003.06.19
Простая функция PING


1-60113
sndanil
2003-06-06 10:24
2003.06.19
событие DLL_PROCESS_ATTACH в Dll на Delphi