| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Памагитя! [D6, Win2k]

Axis_of_Evil ©   (2002-10-28 09:37:00) 

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

Я делаю так:
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-29 16:31:00) [1]

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

---

Subfire   (2002-10-28 14:37:00) [2]

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

---

Axis_of_Evil   (2002-10-28 13:49:00) [3]

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

---

Axis_of_Evil   (2002-10-28 09:52:00) [4]

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

---

Наверх