Форум: "WinAPI";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.011 c