const
 CBTHookLib = 'CBTHookLib.dll';

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 hLib := LoadLibrary(CBTHookLib);
 if hLib = 0 then
   ShowMessage(SysErrorMessage(GetLastError));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 if hLib <> 0 then
   FreeLibrary(hLib);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if hHook <> 0 then
   Exit;

 hHook := SetWindowsHookEx(WH_CBT, GetProcAddress(hLib, 'CBTProc'), hLib, 0);

 if hHook = 0 then
   ShowMessage(SysErrorMessage(GetLastError));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if hHook = 0 then
   Exit;

 if not UnhookWindowsHookEx(hHook) then
   ShowMessage(SysErrorMessage(GetLastError));

 hHook := 0;
end;

const
 LogFileName = 'txt.txt';

var
 hHook: Windows.HHOOK;

function CBTProc(nCode: LongInt; wParam: WPARAM; lParam: LPARAM) : LRESULT; stdcall;
var
 F: TextFile;
 Buffer1, Buffer2: array [0..2047] of Char;
begin
 if nCode = HCBT_ACTIVATE then
 begin
   ZeroMemory(@Buffer1, SizeOf(Buffer1));
   ZeroMemory(@Buffer2, SizeOf(Buffer2));
   
// PCBTActivateStruct(lParam)^.hWndActive - наскольно я понимаю тут и должен находится handle активного окна,
   // но имя класса не определяется, - почему ? :)
GetClassName(PCBTActivateStruct(lParam)^.hWndActive, Buffer1, SizeOf(Buffer1));
   // Здесь handle окна которое будет назначено активным
GetClassName(HWND(wParam), Buffer2, SizeOf(Buffer2));

   AssignFile(F, LogFileName);
   if not FileExists(LogFileName) then
     Rewrite(F) else Append(F);

   WriteLn(F, String(Buffer1) + ' -> ' + String(Buffer2));
   CloseFile(F);
 end;

 Result := CallNextHookEx(hHook, nCode, wParam, lParam);
end;