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