Ich habe einen Maushook installiert der meinem Programm eine Nachricht schickt, wenn die sich die Maus bewegt. Der Hook verhindert auch, dass andere Programme noch eine Mausnachricht empfangen können (Grund: ich will auf den Desktop zeichnen).
Das klappt auch alles Wunderbar bei ungedrückter Maustaste. Doch wenn ich in irgendeinem Fenster eine Maustaste drücke und gedrückt halte, wird meinem Programm nur noch so lange eine Nachricht gescickt, wie die Maus sich über diesem Fenster befindet. Wenn sie über die Fenstergrenze hinausbewegt wird, kommt bei meinem Prog nix mehr an, erst wieder, wenn sie sich wieder über dem Fenster befindet.
Woran liegt das, und wie kann ich das beheben?
Der Maushook:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
| library mousehook;
uses
Windows,
Messages;
const
WM_HOOKMAP = WM_USER + $0400;
var
HookHandle : HHook;
FileMapObj : THandle;
FileMapView : ^Integer;
function MouseHookProc(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
if code = HC_ACTION then
begin
FileMapObj := OpenFileMapping(FILE_MAP_READ, False,'MouseHookMapFile');
if FileMapObj <> 0 then
begin
FileMapView := MapViewOfFile(FileMapObj, FILE_MAP_READ, 0, 0, 0);
PostMessage(FileMapView^, WM_HOOKMAP, wParam, lParam);
UnmapViewOfFile(FileMapView);
CloseHandle(FileMapObj);
end;
end;
end;
procedure InstallMouseHook; stdcall;
begin
HookHandle := SetWindowsHookEx(WH_MOUSE, @MouseHookProc, hInstance , 0);
end;
procedure UninstallMouseHook; stdcall;
begin
UnhookWindowsHookEx(HookHandle);
end;
exports
InstallMouseHook,
UninstallMouseHook;
begin
end. |
.