Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.14;
Скачать: CL | DM;

Вниз

HOOK!!!срочно!!!!   Найти похожие ветки 

 
slipper   (2002-10-04 18:43) [0]

Нужно установить HOOK на создание окна(получать handle, создаваемого окна).
Суть проблемы:
После установке HOOK"а, получается так, что система как бы постоянно создает окно.
Помогите примером please, или объясните причины глюка.
КОД DLL:

function CBTProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
begin
if code=HCBT_CREATEWND then
MessageBox(0,"OK","",0);
Result:= CallNextHookEx(GlobalData^.SysHook, Code, wParam, lParam);
end;

procedure hook(switch : Boolean) export; stdcall;
begin
if switch=true then
begin
GlobalData^.SysHook := SetWindowsHookEx(WH_CBT,@CBTProc, HInstance, 0);
if GlobalData^.SysHook <> 0 then
MessageBox(0, "HOOK установить удалось !", "", 0)
else
MessageBox(0, "HOOK установить не удалось !", "", 0);
end
else
begin

if UnhookWindowsHookEx(GlobalData^.SysHook) then
else
MessageBox(0, "HOOK снять не удалось !", "", 0);

end;
end;


 
Юрий Зотов ©   (2002-10-04 22:18) [1]

> if code=HCBT_CREATEWND then MessageBox(0,"OK","",0);

> После установке HOOK"а, получается так, что система как бы
> постоянно создает окно.

И даже без "как бы". Она его действительно постоянно создает. Своим MessageBox Вы сами заставляете ее делать это. Разве диалог - не окно?



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

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

Наверх




Память: 0.47 MB
Время: 0.021 c
7-46156
BCPP_Builder_Dev
2002-09-12 14:27
2002.11.14
Коллеги! Как программно


3-45731
RVGroup
2002-10-24 14:49
2002.11.14
Впечатления от Cache 5


3-45671
Руслан Вишняков
2002-10-23 16:25
2002.11.14
Ошибка


3-45667
Александр
2002-10-25 16:21
2002.11.14
DBGrid не воспринимает русский


6-46036
Metallica
2002-09-19 19:58
2002.11.14
Почему не загружаются две и более HTTP-страницы одновременно.