Dynamische Verwendung von RegisterServiceProcess funzt nicht

[Lefko]

Hallo Freunde ,

ich habe folgendes geschrieben, um die kernel32.dll dynamisch zu laden, aber es klappt etwas nicht mit der verwendung von RegisterServiceProcess:

Delphi-Quellcode:

var DLLHandle : THandle;
    
Form1.create(...);
begin
//Taskmanager
if Win32Platform = 1 then
  try
    DLLHandle := LoadLibrary('C:\Windows\System\kernel32.dll');
    if DLLHandle <> 0 then
      begin
       @RSP_Procedure := GetProcAddress(DLLHandle, 'RegisterServiceProcess');
       if Assigned(RSP_Procedure) then
         begin
          if RSP_Procedure(GetCurrentProcessID, 1) = 1
            then showmessage('Erfolgreich versteckt')
            else showmessage('Verstecken fehlgeschlagen');
         end;
      end;
    FreeLibrary(DLLHandle);
  except end;
end;

Es kommt aber immer "Verstecken fehlgeschlagen", kann mir jemand erklären, weshalb?
Ich prüfe ja extra, ob RSP_Procedure auch assigned ist, also findet er RegisterServiceProcess schon; da kann der Fehler nicht liegen.

MfG Lefko