Maus Hook - Nichts passiert

[citybreaker]

Hi!

Habe wieder einmal ein Problem. Ich schlage mich grade mit Hooks herum und
komme nicht weiter.

Es passiert einfach nichts.

hook.dll

Delphi-Quellcode:

function MouseProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  if wParam = WM_LBUTTONDOWN then ShowMessage('beep');
  Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
end;

function InstallHook(Hwnd: Cardinal): Boolean; stdcall;
begin
  Result := False;
  if HookHandle = 0 then begin
    HookHandle := SetWindowsHookEx(WH_Mouse, @MouseProc, HInstance, 0);
    WindowHandle := Hwnd;
    Result := TRUE;
  end;
end;

function UninstallHook: Boolean; stdcall;
begin
  Result := UnhookWindowsHookEx(HookHandle);
  HookHandle := 0;
end;

exports
  InstallHook,
  UninstallHook;

Programm

Delphi-Quellcode:

  function InstallHook(Hwnd: Cardinal): Boolean; stdcall; external 'hook.dll';
  function UninstallHook: Boolean; stdcall; external 'hook.dll';

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  if InstallHook(handle) then UninstallHook;
end;

So wenn ich nun auf button1 klicke und dannach woanders hin,
passiert einfach nichts.

Habe mir schon das Tutorial auf delphi-source.de durchgelesen
werde aber nicht so richtig schlau daraus.

[konda]

Ist doch eigentlich logisch, warum nichts passiert. In deiner buttonclick-procedure, wird zuerst geprüft, ob das installieren des Hooks erfolgreich war. Wenn nun das Installieren geklappt hat, wird der hook gleich wieder deinstalliert. :mrgreen:

[Robert Marquardt]

Wenn das eine DLL fuer einen globalen Mouse Hook ist, dann wird sie nicht funktionieren.
Solche DLLs lassen sich nicht so einfach in Delphi implementieren.

Der Knackpunkt ist die globale Variable HookHandle. Diese ist in einer Delphi DLL nicht global genug.
so eine Hook DLL wird in alle laufenden Prozesse geladen. Gemeinerweise aber als separate Kopie.
Also hat nur eine Kopie (naemlich die von deinem Programm) initialisierte globale Variablen.
Der HookHandle muss daher fuer alle DLL-Kopien zugaenglich sein.
Bei DLLs die mit MS Compiler erstellt wurden kann man ein shared Segment deklarieren das dann in allen DLL-Kopien vorhanden ist.
Delphi kann das nicht, daher weicht man ueblicherweise auf ein memory mapped File aus.