Главная страница
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.022 c
1-80015
denis24
2004-02-12 19:00
2004.02.25
старый вопрос проокругление


3-79570
Alex-kosmonavt
2004-01-29 14:51
2004.02.25
@@IDENTITY


1-79887
Хомячок
2004-02-09 22:50
2004.02.25
Всем, кто знаком со стринггридом...(СГ)


14-80195
Djon007
2004-01-30 20:10
2004.02.25
Не могу определить свой host


1-79897
Anderson
2004-02-10 09:50
2004.02.25
MessagesBox вопрос банальный )))