Запуск приложения и активность формы

[fuv]

На форме размещены кнопки, которые отвечают за запуск различных приложений. Как сделать , чтобы форму нельзя было сделать активной, пока работает запущенное приложение (т.е нельзя запускать более одного приложения). Как только приложение завершило работу, фокус передать форме.

[vicvtor]

Когда запускаешь какое либо приложение, в системе инициируется его Handle. При запуске внешней программы (по нажатии на твои кнопки) активируешь таймер проверки наличия в системе Handle запущеного тобою приложения. В это же время блокируй окно своей формы. Как только программа завершается, handle разрушается и в системе его уже нет. Программа его не видит и делает себя в Normal Mode. Вот. Вроде так. Ищи handle с помощью EnumWindows.

[Трофимов Александр]

У меня так получилось вроде:
procedure TForm1.Timer1Timer(Sender: TObject);
VAR
Wnd : hWnd;
buff: ARRAY [0..127] OF Char;
s:boolean;
begin
s:=false;
Wnd := GetWindow(Handle, gw_HWndFirst);
WHILE Wnd <> 0 DO
BEGIN
IF (Wnd <> Application.Handle) AND
IsWindowVisible(Wnd) AND
(GetWindow(Wnd, gw_Owner) = 0) AND
(GetWindowText(Wnd, buff, sizeof(buff)) <> 0)
THEN BEGIN
GetWindowText(Wnd, buff, sizeof(buff));
if StrPas(buff)='Процесс' then s:=true;
END;
Wnd := GetWindow(Wnd, gw_hWndNext);
END;
if s=true then form1.Visible:=false else form1.Visible:=true;
end;

[Voland]

Что-то вроде этого:

var 
  si: STARTUPINFO;
  pi: PROCESS_INFORMATION;
begin
  FillChar(si, SizeOf(si), 0);
  si.cb:=SizeOf(si);
  CreateProcess('notepad.exe', nil, nil, nil, False, 0, nil, nil, si, pi);
  WaitForSingleObject(pi.hProcess, INFINITE);
  ShowMessage('Finished!');
end;