Проблема с ловушкой для мыши
Nomolos © (2005-04-18 18:22:00)
Необходимо создать глобальный хук для событий мыши. Я в этом
деле немного лол, и созданный мной хук работает только в сфере
моего окна и, почему-то, окон консольных приложений. Приведу
"цитату" из DLL, проект, я думаю, понятен: две кнопки.
library capture;
uses
Windows;
var
HDC, HHook: THandle;
p: TPoint;
function MouseProc(nCode: Integer; wParam: wParam; lParam:
lParam): Longint; stdcall;
begin
GetCursorPos(p);
LineTo(HDC, p.X, p.Y);
Result:=CallNextHookEx(HHook, nCode, wParam,
Integer(lParam));
end;
procedure InstallHook; stdcall; export;
begin
HDC := GetDC(0);
GetCursorPos(p);
MoveToEx(HDC, p.X, p.Y, nil);
HHook := SetWindowsHookEx(WH_MOUSE, @MouseProc,
hInstance, 0)
end;
procedure UninstallHook; stdcall; export;
begin
UnhookWindowsHookEx(HHook);
end;
exports
InstallHook, UninstallHook;
end.
Eraser (2005-04-18 18:33:00) [1]
Nomolos (18.04.05 18:22)
Я в этом деле немного лол
мда....
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=548
Наверх 
ЧАТ |
Орешник |
|
