Работа с окнами

[Vladya]

Добрый вечер! У меня такой вопрос: как сделать окно (не моей программы, вообще любое окно) активным?
Скажем я из-под своей программы запускаю несколько сторонних приложений и теперь я хочу что бы при нажатии на кнопку в моей программе приложение, название которого аналогично названию кнопки, стало активным, тоесть перешло на передний план и т.д. Как такое можно реализовать?

[Terran]

Procedure SwitchToThisWindow(H1: HWnd; X: Bool); Stdcall;
External User32 Name 'SwitchToThisWindow';
{X = False: Size unchanged, X = True: normal size}

Procedure TForm1.Button1Click(Sender: TObject);
Begin
SwitchToThisWindow(FindWindow('notepad', Nil), True);
End;
...
SetForegroundWindow();

[Vladya]

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

[Terran]

Извиняюсь, это я немного ошибся. Вызывайте процедуру так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
SwitchToThisWindow(FindWindow(Nil, 'Заголовок окна'),True);
End;

Проверил. У меня всё работает.

[Vladya]

Вот так и у меня работает
Спасибо огромнейшее, очень помогли!

[Terran]

Спасибо огромнейшее, очень помогли!

Не за что!