Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

Hook dla mausa   Найти похожие ветки 

 
Delphi5.01 ©   (2003-12-17 19:26) [0]

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) [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.



Страницы: 1 вся ветка

Текущий архив: 2004.02.25;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.032 c
9-79536
NailMan
2003-08-13 16:17
2004.02.25
Непонятные глюки со спрайтами и Delphi


14-80141
_none_
2004-02-02 11:26
2004.02.25
Что такое


14-80205
IronHawk
2004-01-29 11:34
2004.02.25
TeamSource 6.0 задрал, глюки при Check In!


11-79692
Кладов
2003-06-05 09:27
2004.02.25
Совместимость MCK-проектов с FPC


1-79863
viksoft
2004-02-10 16:46
2004.02.25
Узнать имя открытого в Worde документа