Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > запуск нескольких программ по очереди

Автор: Volkogriz 11.9.2012, 01:10

Доброе время суток!
Проблема такая, нужно программе два приложения:
Reader, WinRAR.
Появилась форма приветствия жмём кнопу далее запускается
форма с прогресс баром и запускается установка первого
приложения в тихом режиме после окончания установки запускается
вторая и по окончании скрывается форма с прогресс баром и
появляется форма с действиями, вообще ка кто так.
Пробовал несколько способов не один не катит, висит
приложение"не работает прогресс" то бес конечно запускается установка %((
Помогите решить проблему.
С уважением,
Volkogriz!

Автор: northener 11.9.2012, 01:43

Цитата(Volkogriz @ 11.9.2012, 01:10

)

Пробовал несколько способов

Показывай как пробовал, что не получалось.
Иначе - в Центр Помощи.

Автор: Volkogriz 11.9.2012, 02:11

Код


 uses
   Windows, ShellApi;

   procedure ExecuteWait(Programme: string);

implementation   

Procedure ExecuteWait(Programme: string);
var
 ShExecInfo: TShellExecuteInfo;
begin
 FillChar(ShExecInfo, SizeOf(ShExecInfo), 0);
 with ShExecInfo do
  begin
   cbSize:=SizeOf(ShExecInfo);
   fMask :=SEE_MASK_NOCLOSEPROCESS;
   lpFile:=PChar(Programme);
   lpVerb:='open';
   nShow :=SW_SHOW;
  end;
 if ShellExecuteEx(@ShExecInfo)
 then WaitForSingleObject(ShExecInfo.hProcess, INFINITE);
end;

Код


procedure TForm2.Timer2Timer(Sender: TObject);
begin
Application.ProcessMessages;
ExecuteWait('WinRAR.v4.20.exe');
Application.ProcessMessages;
ExecuteWait('WinRAR.v4.20.exe');
Application.ProcessMessages;
Timer2.Enabled:=false;
end;

вот так.