Текущий архив: 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.034 c