Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi 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:

markieren

Code:

			type TRegisterServiceProcess = function(dwProcessID,dwType: DWord) : DWord; stdcall;

     var RegisterServiceProcess: TRegisterServiceProcess;

         hKernel32: HInst;

Das hier in's Form Create:

markieren

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