hide the application from tasklist (Ctrl+Alt+Del)

Author: Simon Grossenbacher

{

This example runs only under Windows 95/98

Dieses Beispiel läuft nur unter Windows 95/98

}

implementation

function RegisterServiceProcess(dwProcessID, dwType: DWORD): DWORD;

stdcall; external 'KERNEL32.DLL';

// hide, verstecken

procedure TForm1.Button1Click(Sender: TObject);

begin

RegisterServiceProcess(GetCurrentProcessID, 1);

end;

// show again, wieder anzeigen

procedure TForm1.Button2Click(Sender: TObject);

begin

RegisterServiceProcess(GetCurrentProcessID, 0);

end;