Hallo,

ich benutze folgende Funktion um meinen Hook zu überspringen.

markieren

Delphi-Quellcode:

function xPostMessage(hWnd: hWnd; Msg: UINT; wParam: wParam; lParam: lParam): BOOL; stdcall;
asm
      mov edi, edi
      push ebp
      mov ebp, esp
      jmp OldDllFunc
end;

Warum macht der Compiler dann folgenden Code daraus, bzw. wie kann ich verhindern das er es macht ?

markieren

Code:

003A5C60 G> $  55                push   ebp
003A5C61    . 8BEC             mov    ebp, esp
003A5C63    . 89FF             mov    edi, edi
003A5C65    . 55                push   ebp
003A5C66    . 89E5              mov    ebp, esp
003A5C68    . FF25 70FF3A00     jmp    near dword ptr [3AFF70]

Wie man sieht hat er einiges geändert.

Ich finde das auch extrem lästig. In C++ würde man das mit __declspec(naked) lösen; in Delphi gibt es das nicht. Als hässlichen Workaround kannst du die Parameter sowie das stdcall weglassen. Wenn du die Funktion dann aus Delphi-Code aufrufen willst, nimmst du @xPostMessage und castest in einen entsprechenden Funktionszeigertypen, sodass du die Funktion mit Parametern aufrufen kannst.

Schlüsselwort [oh]assembler;[/oh] vor stdcall; angeben.

Was ist der Sinn von mov edi, edi?
Meinst Du mov edi, [edi]?

mov edi, edi steht auch am Anfang der meisten WinAPI-Funktionen und erleichtert erneutes Hooken - zumindest, wenn sich vor der Funktion noch fünf ungenutzte Bytes befinden.

Zitat von Muetze1:

Schlüsselwort [oh]assembler;[/oh] vor stdcall; angeben.

Und in welchen Delphi-Versionen funktioniert das? In D7 schon mal nicht.

Zitat von Muetze1:

Schlüsselwort [oh]assembler;[/oh] vor stdcall; angeben.

Also in Delphi 2010 funktioniert das auch nicht !

Zitat von Apollonius:

Ich finde das auch extrem lästig. In C++ würde man das mit __declspec(naked) lösen; in Delphi gibt es das nicht. Als hässlichen Workaround kannst du die Parameter sowie das stdcall weglassen. Wenn du die Funktion dann aus Delphi-Code aufrufen willst, nimmst du @xPostMessage und castest in einen entsprechenden Funktionszeigertypen, sodass du die Funktion mit Parametern aufrufen kannst.

Klingt etwas umständlich aber ich werde es einmal versuchen.

Also ich hab jetzt ne einfache Möglichkeit gefunden.

wenn ich es so mache ...

markieren

Delphi-Quellcode:

function xPostMessage(hWnd: hWnd; Msg: UINT; wParam: wParam; lParam: lParam): BOOL; stdcall;
 asm
      mov edi, edi
      jmp OldDllFunc
end;

wird daraus ...

markieren

Code:

003A5C60 G> $  55                push   ebp
003A5C61    . 8BEC             mov    ebp, esp
003A5C63    . 89FF             mov    edi, edi
003A5C65    . FF25 70FF3A00     jmp    near dword ptr [3AFF70]

und es funktioniert.

Das ändert am zugrunde liegenden Problem rein gar nichts. Nebenbei bemerkt kannst du dein mov edi, edi jetzt tatsächlich ersatzlos streichen.