Главная страница
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.02 c
14-80095
Set
2004-02-03 12:18
2004.02.25
AdobePhotoShop7.0 Rus


14-80169
Palladin
2004-01-31 21:31
2004.02.25
Критерии серьезности.


1-79945
Talla2k
2004-02-08 20:24
2004.02.25
Scroll в StringGrid . ~по моему событию~


14-80132
real_dimedrol
2004-01-30 16:43
2004.02.25
Обои в NT


6-80061
Term!
2003-12-19 12:22
2004.02.25
Не работает Win-CGI приложение