Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#1

Verständnisfrage zu SetWindowsHookEx und CallNextHookEx

  Alt 12. Jun 2007, 15:14
Hallo,

Wenn man mit SetWindowsHookEx einen Hook installiert bekommtman ja ein Hookhandle zurück geliefert und die HookProcedure wird in jeden Prozess geladen (inclusive dll)?! (ich hoffe das ist nicht schon die erste stelle wo ich mich irre).

In der HookProcedure ist es ja laut Hilfe dann des öfteren nötige bzw. wird dringend empfohlen, die Funktion CallNextHookEx aufzurufen welche eben das HookHandle haben will. Aber woher bekomm ich das Handle, schließlich hab ich das ja nur innerhalb der DLL-Instanz in der ich den Hookinstalliere, oder?
Delphi-Quellcode:
library APIHook;

uses
  Windows;

var
  HookHandle: THandle;

function HookProc(code: Integer; ALParam: Integer; AWParam: Integer): Integer; stdcall;
begin
  //kann ich hier auf HookHandle zugreifen? Eigentlich ist dieses doch nur in der DLL-Instanz initialisiert in welcher der Hook instanziert wurde.
  result := CallNextHookEx(HookHandle, ALParam, AWParam);
end;

//diese funktion wird nur in im Prozess aufgerufen der den Hook installiert?!
procedure StartHook; stdcall;
begin
  //Da die Funktion nur dem Prozess aufgerufen wird welche den Hook installiert sollte HookHandle ja auch nur in diesem Prozess verfügbar sein bzw. initialisiert sein
  HookHandle := SetWindowsHookEx(WH_GETMESSAGE, @GetMsgProc, HInstance, 0);
end;

procedure StopHook; stdcall;
begin
  UnhookWindowsHookEx(HookHandle);
  UnHookFunctions;
end;

exports
  StartHook,
  StopHook;

begin
  HookFunctions;
end.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat