Найти активное окно
Чтобы получить Handle активного окна (не важно, ваше оно или нет) нужно воспользоваться функцией GETForegroundWindow. Приведенная программа каждую секунду пытается развернуть активное окно. На форму нужно кинуть компонент Timer1 находится он на вкладке System procedure TForm1.Timer1Timer(Sender: TObject);begin
ShowWindow(GetForegroundWindow, SW_MAXIMIZE);
end;