Текущий архив: 2005.06.06;
Скачать: CL | DM;
Вниз
Проблема с ловушкой для мыши Найти похожие ветки
← →
Nomolos (2005-04-18 18:22) [0]Необходимо создать глобальный хук для событий мыши. Я в этом деле немного лол, и созданный мной хук работает только в сфере моего окна и, почему-то, окон консольных приложений. Приведу "цитату" из 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) [1]Nomolos (18.04.05 18:22)
Я в этом деле немного лол
мда....
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=548
Страницы: 1 вся ветка
Текущий архив: 2005.06.06;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.052 c
