| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Не получается установить hook... [D5, Win95/98]
Camedia © (2003-08-29 19:55:00)
Код таков:
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 21:39:00) [1]
Бывает
Camedia (2003-08-29 21:22:00) [2]
Точно, во блин не заметил.
Yanis (2003-08-29 20:42:00) [3]
А ту указатель @ вставь перед HookProc, на эту функцию:
OurHook := SetWindowsHookEx(WH_MOUSE, @HookProc, HInstance, 0);
| |
