Hallo,
Ich hab' mich mal mit Assarbads Tutorial beschäftigt - ertsmal großes Lob für seinen Aufwand
. Nun bin ich kein Spezi auf diesem Gebiet und würde mein Hook-Programm gerne mit Hilfe der VCL schreiben.
Es stellt sich nun die Frage, wie das Programm nun die dafür eingeführten Maus- bzw. TastaturHook-Messages (z.B. WM_MOUSEHOOKMSG) abfangen und auswerten kann (Laden der DLL und Installieren des Hooks bei Button-Klick funktioniert schon).
Vielleicht kommt man mit der WndProc Prozedur weiter, folgender Code führte bei mir jedoch zu Programm-Abstürzen beim Ausführen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
|
protected
procedure WndProc(var msg : TMessage); override;
procedure TForm1.WndProc(var msg : TMessage);
var temp: string;
begin
if (msg.Msg = ViewHandle^.WM_MOUSEHOOKMSG) then
begin
temp := mousmsg2string(msg.wParam);
Label2.Caption := temp;
end
else
begin
inherited WndProc(msg);
end;
end;
|
Weiterhin müsste ich natürlich noch die Messages auswerten, die obige Variante ist nur eine Idee, ich weiß aber natürlich nicht ob sie so funktioniert ...
Ich würde mich also freuen, wenn wir die 2 Probleme lösen könnten.
Thx,
Arnold
Moderiert von 
Tino: Delphi-Tags hinzugefügt & Titel geändert.
