Einzelnen Beitrag anzeigen

Lefko

Registriert seit: 31. Jul 2003
359 Beiträge
 
Delphi 6 Enterprise
 
#1

Dynamische Verwendung von RegisterServiceProcess funzt nicht

  Alt 29. Nov 2003, 18:19
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
Johannes
-=[Nennst du meinen Namen, bin ich schon nicht mehr da]=-
  Mit Zitat antworten Zitat