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

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

Подскажите что в этом коде не так. [D7]

maxim2 ©   (2003-01-20 13:21:00) 

Привет всем!
Ставлю глобальный хук, но когда пытаюсь свернуть или развернут окно или создать, то никакой реакции
в чем проблема?


function hook(c0de, wParam, lParam : integer): Lresult; stdcall;
begin
if c0de >= 0 then
begin
case wParam of
HCBT_MINMAX : showmessage("HCBT_MINMAX");
HCBT_CREATEWND: showmessage("HCBT_CREATEWND");
end
end else
begin
result := CallNextHookEx(H, c0de, wParam, lParam);
exit;
end;
result := CallNextHookEx(H, c0de, wParam, lParam);
End;


procedure sethook;
begin
H:= SetWindowsHookEx(WH_CBT, @hook, hInstance, 0);
if H = 0 then
messageBox(0,"Неполучилосяяяя","ERROR",mb_iconhand);
end;

---

maxim2   (2003-01-21 10:08:00) [1]

Что то статьи не могу найти.

---

E_Dimon   (2003-01-20 22:51:00) [2]

а хэндл хука находится в Shared Memory?
есди нет , то на сервере есть соотв. статья

---

Наверх