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

Вниз

Не получается установить hook...   Найти похожие ветки 

← →
Camedia   (2003-08-29 19:55) [0]

Код таков:

interface

function HookProc(Code: Integer; wParam: Word; lParam: Longint): Longint; stdcall;

var OurHook: HHook;

implementation

procedure TMainForm.ButtonClick(Sender: TObject);
begin
OurHook := SetWindowsHookEx(WH_MOUSE, HookProc, HInstance, 0);
end;

function HookProc(Code: Integer; wParam: Word; lParam: Longint): Longint;
begin
if (wParam=WM_LBUTTONDOWN) then
begin
ShowMessage("Clicked");
UnHookWindowsHookEx(ourHook);
end;
result:=CallNextHookEx(ourHook, Code, wParam, lParam);
end;

Ругается, пишет о несовместимости Integer и Word, курсор ставит после HookProc в SetWindowsHookEx(WH_MOUSE, HookProc, HInstance, 0). Странно, но код я написал на основе двух примеров, один из которых точно должен работать и тем не менее такое дело. Помогите, плз.

---

← →
Yanis ©   (2003-08-29 20:42) [1]

А ту указатель @ вставь перед HookProc, на эту функцию:

OurHook := SetWindowsHookEx(WH_MOUSE, @HookProc, HInstance, 0);


---

← →
Camedia   (2003-08-29 21:22) [2]

Точно, во блин не заметил.

---

← →
Yanis ©   (2003-08-29 21:39) [3]

Бывает

---

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

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

Наверх

Память: 0.47 MB
Время: 0.654 c