Fremdes programm hookt CreateWindowEx

[Gruber_Hans_12345]

Das ist mal mein Testcode

wenn fremdes programm gestartet ist, dann 8000 ms wenn nicht gestartet dann 60ms

GetProcAddress liefert in beiden Fällen die selbe Adresse zurück

Wenn ich das fremde Programm schließe, dann funktionieren die Aufrufe sofort wieder schnell

Ein Starten im Adminmode, oder mit Kompatiblitäts .... bringt auch nichts.

Delphi-Quellcode:

procedure TForm8.Button1Click(Sender: TObject);
var
    c       : cardinal;
    i       : integer;
begin
    c       := GetTickCount;
    //    CreateWindowEx

    for i:=0 to 100 do begin
        with TTimer.Create(nil) do
            Free;
    end;

    Memo1.Lines.Add(IntToStr(GetTickCount-c));
end;

procedure TForm8.Button2Click(Sender: TObject);
var
    LModule : HMODULE;
    temp    : Pointer;
begin
    LModule := GetModuleHandle(User32);
    if LModule <> 0 then
    begin
        temp    := GetProcAddress(LModule, 'CreateWindowExA');
        Memo1.Lines.Add('CreateWindowEx : '+IntToHex(integer(temp), 8));
    end;
end;

[Aphton]

Ok, hast du bei der Adresse im Speicher (per Delphi-Debugger z.B. -- damit kannste auch schön Assembler Code sehen)
nachgeschaut? Ist dort die Standardstackframegenerierung drinnen?

Edit
Also das hier:

Code:

user32.CreateWindowExA:
7536D22E 8BFF             mov edi,edi
7536D230 55               push ebp
7536D231 8BEC             mov ebp,esp
7536D233 6801000040       push $40000001
7536D238 FF7534           push dword ptr [ebp+$34]
7536D23B FF7530           push dword ptr [ebp+$30]
/*snip*/

user32.CreateWindowExW:
75368A29 8BFF             mov edi,edi
75368A2B 55               push ebp
75368A2C 8BEC             mov ebp,esp
75368A2E 6800000040       push $40000000
75368A33 FF7534           push dword ptr [ebp+$34]
75368A36 FF7530           push dword ptr [ebp+$30]
/*snip*/

(Das mov edi, edi -- push ebp -- mov ebp, esp)

Achja, du müsstest übrigens für beide überprüfen, ob die Adresse anders ist (für die ..A und ..W)

[Gruber_Hans_12345]

hmmmmmmmmmmm nun bin ich mir nicht mehr so sicher ob es wirklich ein Hook ist

das dauert lange
aHWND := CreateWindowEx(WS_EX_TOOLWINDOW, UtilWindowClass.lpszClassName, '', WS_POPUP {+ 0}, 0, 0, 0, 0, 0, 0, HInstance, nil);
das nicht!
aHWND := CreateWindowEx(WS_EX_TOOLWINDOW, UtilWindowClass.lpszClassName, '', WS_CHILD {+ 0}, 0, 0, 0, 0, 0, 0, HInstance, nil);
@Aphton: Ich habe leider auf dem System wo dieses Programm läuft kein Delphi drauf ...