Hide a process in the kill task menu

注:此程序只能在WIN9X下运行,WINDOWS NT以下操作系统的KERNEL32.DLL文件已不包含API函数RegisterServiceProcess;

How can I hide my application in
the Ctrl+Alt+Del menu? You need to
use RegisterServiceProcess, which
has to be imported from the kernel.
See the following example:

unit Unit1;

Interface

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

type
TForm1 = class (TForm)
Button1 : TButton;
procedure FormDestroy (Sender: TObject);
procedure FormCreate (Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1 : TForm1;

implementation

{$R *.DFM}

const
RSPSIMPLESERVICE     = 1;
RSPUNREGISTERSERVICE = 0;

function RegisterServiceProcess(dwProcessID,
dwType: DWord) : DWord; stdcall;
external 'KERNEL32.DLL';

procedure TForm1.FormDestroy(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID,
RSPUNREGISTERSERVICE)
end;

procedure TForm1.FormCreate (Sender: TObject);
begin
RegisterServiceProcess (GetCurrentProcessID,
RSPSIMPLESERVICE)
end;

end.