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

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

Перехват сворачивания и восстановления окон

Vasily Terekhov ©   (2002-11-13 10:19:00) 

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

Василий.

---

Song   (2002-11-13 14:31:00) [1]

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

---

Vasily Terekhov   (2002-11-13 11:01:00) [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 10:31:00) [3]

WH_GETMESSAGE+WM_SYSCOMMAND
или
WH_CBT

---

Наверх