Wie kann ich mein Programm im "Anwendung schließen" -Fenster (strg+alt+entf) verstecken?

[Creator]

Ich möchte ein Überwachungsprogramm schreiben, das die tätigkeiten anderer Benutzer aufschreibt. Ich habe alles soweit schon fertig nur weiß ich nicht wie ich mein Program im "Programm schließen" Fenster verstecke, damit es unentdeckt bleibt! Kann mir jemand helfen?

Danke
CREATOR

[Andreas Kosch]

Hallo,

unter Windows 9x kann eine normale Anwendung über den Aufruf der API-Funktion <b>RegisterServiceProcess</b> als <i>Windows 9x-Service</i> deklariert und somit im Windows-Dialog "Anwendung schließen" (CTRL+ALT+DEL) verborgen werden. Das könnte zum Beispiel so aussehen:
<pre>
type
TRegisterServiceProcess = function (dwProcessID, dwTypeWORD)WORD; stdcall;

const
RSP_SIMPLE_SERVICE = 1;
RSP_UNREGISTER_SERVICE = 0;

var
RegisterServiceProcess : TRegisterServiceProcess;

procedure TFormLogin.FormCreate(Sender: TObject);
var
Hndl : THandle;
begin
// Programm im Win9x-Dialog "Anwendung schließen" verbergen
Hndl := LoadLibrary('KERNEL32.DLL');
try
@RegisterServiceProcess := GetProcAddress(Hndl, 'RegisterServiceProcess');
if @RegisterServiceProcess <> nil then
RegisterServiceProcess(GetCurrentProcessID, RSP_SIMPLE_SERVICE);
finally
FreeLibrary(Hndl);
end;
end;

procedure TFormLogin.FormDestroy(Sender: TObject);
var
Hndl : THandle;
begin
// Programm im Win9x-Dialog "Anwendung schließen" verbergen
Hndl := LoadLibrary('KERNEL32.DLL');
try
@RegisterServiceProcess := GetProcAddress(Hndl, 'RegisterServiceProcess');
if @RegisterServiceProcess <> nil then
RegisterServiceProcess(GetCurrentProcessID, RSP_UNREGISTER_SERVICE);
finally
FreeLibrary(Hndl);
end;
end;
</pre>
P.S: Der Auszug stammt aus einem Beispielprojekt, das in meinem Buch <i>Delphi Win32-Lösungen</i> detaillierter beschrieben wird