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

Вниз

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

 
sosv   (2003-05-08 13:25) [0]

Устанавливаю Hook на мышь. Начинают глючить 16-ти разрядные программы. Может чего-то не так делаю?

function MouseProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
var AppWnd: HWND;
Pnt: TPoint;
begin
if code = HC_ACTION then
begin
if (wParam = WM_LBUTTONUP) or (wParam = WM_NCLBUTTONUP) then
begin
GetCursorPos(Pnt);
AppWnd:=WindowFromPoint( Pnt );
SendMessage(HWND_BROADCAST, WM_MYKEYHOOK, wParam, AppWnd);
end;
end;
Result:= CallNextHookEx(GlobalData^.SysHook, Code, wParam, lParam);
end;

procedure hook(switch : Boolean) export; stdcall;
begin
if switch then
GlobalData^.SysHook := SetWindowsHookEx(WH_MOUSE, @MouseProc, HInstance, 0)
else
begin
if not UnhookWindowsHookEx(GlobalData^.SysHook) then
MessageBox(0, "HOOK1


 
sosv   (2003-05-08 13:27) [1]

Взято из примера на этом сайте.



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

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

Наверх




Память: 0.46 MB
Время: 0.018 c
1-20069
anod
2003-06-25 15:55
2003.07.07
Как определить одновременное нажатие клавиш


14-20267
Lamer111
2003-06-19 22:45
2003.07.07
чат для локалки


1-20144
Onward
2003-06-23 03:25
2003.07.07
Вопрос о ListView???


7-20330
Dark_arhangel
2003-04-20 04:09
2003.07.07
Как работать с портами и какой вольтаж навыходе.


1-20071
Aleksandr
2003-06-25 18:49
2003.07.07
Как запретить обработку TabSetChanging при выпадающем меню?