Och nö, wie soll denn das jetzt gehen?
Ich habe mal versucht,
http://delphigeek.blogspot.com/2007/...in-delphi.html auf Left-Button zu übertragen, jedoch bekomme ich bei der Implementierung nur einen Programmfehler.
Außerdem wird nirgends beschrieben,
WIE dieser Left-Mouse-Hook (im Link Middle-Mouse-Hook) nun angewandt wird, also dass der Hook sich tatsächlich als Ereignis auf meine Anwendung auswirkt.
Folgendes scheint nicht zu funktionieren:
Delphi-Quellcode:
public
procedure Test(var msg: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
end;
procedure RunHook; stdcall; external 'left_mouse_hook.dll' name 'RunHook';
procedure KillHook; stdcall; external 'left_mouse_hook.dll' name 'KillHook';
procedure TForm1.Test(var msg: TWMNCLButtonDown);
begin
Button1.Caption := IntToStr(GetTickCount());
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
RunHook;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
KillHook;
end;
Kann mir bitte jemand helfen? Ich möchte ein systemglobales Maus-Hook mit der möglichkeit, das Mausereignis innerhalb meiner Anwendung (also nicht in der
DLL) rückgängig zu machen.