Форум: "Потрепаться";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c