Главная страница
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.021 c
1-79908
AlexandrKu
2004-02-09 16:14
2004.02.25
Доступ к ячейкам Excel через OleContainer


1-79853
aus
2004-02-09 14:16
2004.02.25
Подсказки


1-79810
Doddy
2004-02-05 12:52
2004.02.25
Интеграция CHM файла в программу.


1-79917
Khabibulin
2004-02-13 21:45
2004.02.25
SystemTray


4-80371
DMichael
2003-12-16 10:50
2004.02.25
Процесс от имени другого пользователя