Hallo Freunde ,

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

zusammenfalten · markieren

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

Was gibt denn RSP_Procedure zurück? Weis das mal einer einzelnen Variable zu und kuck dir den Wert mal an. Dann wäre noch interessant, was RaiselastOSError() anzeigt. Und unter Win9x arbeitest du oder?

Der Wert von RSP_Procedure ist 0 und RaiseLastOSError hat die message 'A call to an OS function failed'.

Wie kommt das? ich hab WinME, da klappt die verwendung von RegisterServiceProcess sonst gut...

MfG Lefko

Moin Lefko,

wie hast Du denn RSP_Procedure deklariert?

Hast Du daran gedacht stdcall als Aufrufkonvention anzugeben?

Zitat von Christian Seehase:

wie hast Du denn RSP_Procedure deklariert?

so:

markieren

Delphi-Quellcode:

type DLLProcedure = function(ProcessID, OnOff : DWord) : DWord; stdcall;

var RSP_Procedure : DLLProcedure = nil;

Zitat von Christian Seehase:

Hast Du daran gedacht stdcall als Aufrufkonvention anzugeben?

Natürlich nicht!

ich prüfs nochmal mit stdcall (hab ich ja jetzt dazu geschrieben).

MfG Lefko.

EDIT:

Ja, das war wohl der Fehler, jetzt klappt es wunderbar

PS: Was ist denn der Unterschied eigentlich zwischen z.B. DWord und integer? hatte nämlich result als integer deklariert, vielleicht lag s auch daran...? weil da nur 0 oder 1 als result kommt, nahm ich integer, aber es muss dword sein

http://www.FrankNStein.de/Smiley-Wolke.gif Hallöle Lefko,

Zitat:

Delphi-Syntax:
type DWORD = Longword;

Beschreibung
DWORD (Double Word) repräsentiert einen vorzeichenlosen 4-Byte-Integer. Er wird primär für Windows-API-Aufrufe eingesetzt. Die C++ Version ist nur unter Windows verfügbar.

markieren

Code:

Integer  -2147483648..2147483647  32 Bit, mit Vorzeichen
Word     0..65535                 16 Bit, ohne Vorzeichen
Longword 0..4294967295            32 Bit, ohne Vorzeichen

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

Danke Himitsu

MfG Lefko

Darf ich vorschlagen, dass du anstelle der Eins

Zitat von Lefko:

if Win32Platform = 1 then

lieber "VER_PLATFORM_WIN32_WINDOWS" benutzt. Das kommt auf das gleiche heraus, ist aber lesbarer als so eine Eins. Zumindest sieht man mit der Konstanten sofort, für welches OS der nachfolgende Aufruf gilt.

Darfst du!