Как поставить глобальный хук на разворачивание окон

Доброго времени суток. Собственно, вопрос в теме. Нужно поймать момент, когда окно из панели задач разворачивается и становится активным.

Как пытался ловить?

Я знаю, что это нужно делать через хук. Но как - хз. Нужен пример.

Пример не можешь найти?
Смотри справку. В особенности слова SetWindowsHook, WH_CBT и HCBT_ACTIVAT...

Сам сейчас с этим запариваюсь.
Вот в сокращенном варианте:

function CBTProc(code : integer; wParam : word; lParam : longint) : longint; export; stdcall;
begin
 Result := CallNextHookEx(SysHook, Code, wParam, lParam);
 if Code < 0 then Exit;

 case Code of
  HCBT_ACTIVATE:
    begin
    end;

  HCBT_CREATEWND:
   begin
   end;

  HCBT_DESTROYWND:
    begin
    end;
 end; // case Code
end;

function SetHook(UseProtect, LogCreate, LogActivate, LogDestroy: Boolean) : Boolean; export; stdcall;
begin
 SetWindowsHookEx(WH_CBT, @CBTProc, HInstance, 0);
end;

function StopHook: Boolean; export; stdcall;
begin
  UnhookWindowsHookEx(SysHook);
end;

SNike, это должно находиться в dll?

В dll - если хочешь перехватывать сообщения для всех запущенных GUI'шных приложений.

P.S. Информации по этой теме море

Да, в DLL

Кстати, может мне кто объяснит: почему когда выполняется CBTProc (из кода выше) не видно глобальных по DLL переменных?
Например:
1 - создал в SetHook переменную Lst := TStringList.Create
2 - при выполнении CBTProc эта Lst = Nil
3 - в StopHook - Lst уже снова не Nil

Получается что эта функция при исполнении оказывается в другом процессе и не видит переменных DLL ?