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

Вниз

Памагитя!   Найти похожие ветки 

 
Axis_of_Evil ©   (2002-10-28 09:37) [0]

Как уловить Кслик по Рабочему столу???

Я делаю так:
library HookMouseDLL;

uses
Windows, Messages, Forms, Dialogs;


var
Hooked: Boolean False;
OurHook: hHook;


function HookProc(Code: Integer; wParam: Word; lParam: LongInt): LongInt;
begin

if (wParam = WM_LButtonDown) then ShowMessage("a");
else
Result := CallNextHookEx(OurHook, Code, wParam, lParam);

end;


function SetHook: Boolean; export;
begin
if Hooked then Exit;
OurHook := SetWindowsHookEx(WH_Mouse, @HookProc, HInstance, 0);
Hooked := True;
end;


function UnHook: Boolean; export;
begin
UnHookWindowsHookEx(OurHook);
Hooked := False;
end;


exports
SetHook name "SetHook" resident,
UnHook name "UnHook" resident,
GetMouseState name "GetMouseState" resident;


begin
Hooked := False;
end.



И не работает (линкую к проекту, SetHookаю, а если wParam постмотреть, то он = $2B (WM_DRAWITEM),
причем здесь это? Ведь WH_MOUSE?


 
Axis_of_Evil ©   (2002-10-28 09:52) [1]

Если несложно скиньте на mail рабочую версию этой идеи


 
Axis_of_Evil ©   (2002-10-28 13:49) [2]

Ну помогите, Мастера!!
Все выходные на это угробил


 
Subfire ©   (2002-10-28 14:37) [3]

На вскидку
function HookProc(Code,wParam,lParam: LongInt): LongInt;
LongInt и Integer одно и то же...
А вот Word совсем другое....


 
Axis_of_Evil ©   (2002-10-29 16:31) [4]

2 Subfire:
Совсем другое в API или вообще,
я до этого отличий не замечал



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

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

Наверх




Память: 0.47 MB
Время: 0.023 c
14-28244
Bboy tn
2002-11-14 23:16
2002.12.09
Запутался в корпусах


6-28169
DemOk
2002-10-14 11:38
2002.12.09
НЭТВОТЧ !


3-27857
voland34
2002-11-20 23:48
2002.12.09
трабла с indexfield for ClientDataSet


1-27944
sers
2002-11-29 09:14
2002.12.09
Много ли занимает форма в памяти


1-27993
Тормоззз
2002-11-29 14:34
2002.12.09
Передача строк из DLL в форму