vcl-prog -> service

[Salomon]

Ich denke das du den Code unter allen Windowsversionen (9x und NT) nutzen kannst, da nichts Systemspezifisches verwendet wir. Getestet habe ich es aber nur unter XP.
Unter Win 9x kannst du dein Programm sogar vor dem Taskmanager verstecken. Der Code ist so geschrieben, das er unter XP keine Fehlermeldung ausgibt:

Code:

type TRegisterServiceProcess = function(dwProcessID,dwType: DWord) : DWord; stdcall;
     var RegisterServiceProcess: TRegisterServiceProcess;
         hKernel32: HInst;

Das hier in's Form Create:

Code:

{Hide Server from TaskList on Win9x}
hKernel32 := LoadLibrary('Kernel32.dll');
if hKernel32 <> HInst(nil) then
     RegisterServiceProcess :=   GetProcAddress(hKernel32,'RegisterServiceProcess');
if Assigned(RegisterServiceProcess) then
     RegisterServiceProcess(GetCurrentProcessID,1);

Mfg
Salomon