| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Hook dla mausa [D6, D7, WinXP]

Delphi5.01 ©   (2003-12-17 19:26:00) 

Dobroe vrema sutok!
Izvenite za translit, po etoi prichine budu kradok!
Kak ustanovit hook dla mausa?
Dla klavi ochen mnogo primerov!
Spasibo

---

chi   (2003-12-17 20:35:00) [1]

ну вот через wh_getmessage :

library MouseHook;
uses
Wintypes,
Winprocs,
Messages,
SySUtils;

var
hHook: HHook;

function HookProc(Code: integer; wParam: Word;
lParam: Longint): Longint; stdcall;

begin
if Code = HC_ACTION then
if TMsg(Pointer(lParam)^).message = WM_RBUTTONDOWN then
begin
MessageBox(wnd,Pchar("Нажата пр. кнопка!"),Pchar("Hook Message"),mb_ok);
end;
result := CallNextHookEx(hHook, Code, wParam, lParam);
end;

function SetHook: Boolean;stdcall;
begin
hHook := SetWindowsHookEx(WH_GetMessage, @HookProc, HInstance, 0);
Result := hHook <> 0
end;

function UnHookHook: Boolean;stdcall;
begin
Result := UnhookWindowsHookEx(hHook)
end;

exports SetHook,UnHookHook;
begin
end.


---

Наверх