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

Вниз

Не доходят месаги в хук!!!   Найти похожие ветки 

 
volser   (2005-04-19 23:11) [0]

Вешаю глобальный хук


DLL:

function WndProc(code:integer; wParam:WPARAM; lParam:LPARAM):LRESULT; stdcall;
begin
 if code=HC_ACTION then
 begin

   if PCWPStruct(Pointer(lParam))^.message=WM_DM_RESTORE then
   begin
     LogMes("Restore Message");
   end;
 end;
end;

procedure InstallHooks; stdcall;
Var
 pid : DWord;
 Wnd : Hwnd;
begin
 Wnd:= FindWindow("ProgMan", nil);
 if Wnd<>0 then
 begin
   pid:=GetWindowThreadProcessId(Wnd);
   hWndProc:=SetWindowsHookEx(WH_CALLWNDPROC,WndProc, hInstance,pid);
 end;
end;

procedure UnInstallHooks; stdcall;
begin
 UnHookWindowsHookEx(hWndProc);
end;

........

Program:

procedure TformMain.FormDestroy(Sender: TObject);
begin
 LogMes("RESTORE");
 SendMessage(GetDesktopListViewHandle,WM_DM_RESTORE,0,0);
 LogMes("UnHook");
 UninstallHooks;

 
end;



Прога висит в трае и в поп ап меню есть итем Exit;
Когда просто запускаю и закриваю, то результат лога
 RESTORE
 Restore Message
 UnHook

Но когда запускаю, нажимаю кнопку "свернуть все окна", сворачиваю, то результат
 RESTORE
 Restore Message
 UnHook

Если перед закритием открываю любую прогу, то все ОК.

В чем прикол?


 
volser   (2005-04-19 23:12) [1]

Сори, во втором варианте результат лога
 
 RESTORE
 UnHook



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

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

Наверх




Память: 0.46 MB
Время: 0.027 c
3-1114760089
Zhekson
2005-04-29 11:34
2005.06.14
InstallShield &amp; BDE


14-1116836359
Андрей Жук
2005-05-23 12:19
2005.06.14
Украинский документальный фильм победил в Каннах!


14-1116802073
i-s-v
2005-05-23 02:47
2005.06.14
Физика Поля для Аристократофф


3-1115721196
Mr.F
2005-05-10 14:33
2005.06.14
Построение 7 уровнего дерева из таблицы


1-1116596735
Gear
2005-05-20 17:45
2005.06.14
Проблема с заполнением массива байтов.