Поиск Активного Окна

[Sascha]

Иногда нужно найти активное окно и вот пример :

procedure TForm1.Button1Click(Sender: TObject);
var H : HWND; // ссылка на окно
begin
H := FindWindow ('TForm1', 'Form1'); // ищем окно
If H <> 0 then ShowMessage ('Есть Forml!') // окно найдено
else ShowMessage ('Нет Forml!') // окно не найлено
end;