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

Вниз

Перехват сворачивания и восстановления окон   Найти похожие ветки 

 
Vasily Terekhov   (2002-11-13 10:19) [0]

Привет
Как установить хук, чтобы я мог отслеживать сворачивание и восстановление всех окон?

Василий.


 
Song ©   (2002-11-13 10:31) [1]

WH_GETMESSAGE+WM_SYSCOMMAND
или
WH_CBT


 
Vasily Terekhov   (2002-11-13 11:01) [2]

Да
я именно так и делал:

но к сожалению SC_MINIMIZE и SC_RESTORE не отрабатывают :(
есть ошибка?

function MessageHook(Code : Integer; wParam, lParam: DWORD): Longint; stdcall;
var
Wnd: HWND;
W: HWND;
begin
Result := CallNextHookEx(HookHandle, Code, wParam, lParam);

if Code = HC_ACTION then
begin
Wnd := TMsg(Pointer(lParam)^).hwnd;
W := FindWindow(nil, "MessageHookForm");

if TMsg(Pointer(lParam)^).message = WM_SYSCOMMAND then
begin
case wParam of
SC_MINIMIZE: SendMessage(W, WM_SYSAPPMINIMIZE, Wnd, 0);
SC_RESTORE: SendMessage(W, WM_SYSAPPRESTORE, Wnd, 0);
end;
end;
end;
end;

procedure SetMessageHook;
begin
HookHandle := SetWindowsHookEx(WH_GETMESSAGE, @MessageHook, hInstance, 0);
if HookHandle = 0 then
MessageBox(0, "Set hook error", "ERROR", MB_ICONHAND);
end;

procedure RemoveMessageHook;
begin
if HookHandle <> 0 then
UnhookWindowsHookEx(HookHandle);
end;


 
Song ©   (2002-11-13 14:31) [3]

Дык это у Вас в программе вставлено?



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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
3-98982
Alex K
2002-12-10 11:40
2002.12.30
Как здеалть запрос на SQL но компоненте


14-99304
Дремучий
2002-12-09 22:49
2002.12.30
Подскажите как написать подобное на MySQL....


1-99192
denis24
2002-12-19 10:37
2002.12.30
stringgrid and image


7-99384
wildcow
2002-10-24 15:50
2002.12.30
Расшаренный XML


3-99015
Tracer
2002-12-10 17:11
2002.12.30
InterBase vs MS Access