VPF::запуск нескольких программ по очереди

Volkogriz

Дата 11.9.2012, 01:10 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1

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

Это сообщение отредактировал(а) Volkogriz - 11.9.2012, 01:13

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

northener

Дата 11.9.2012, 01:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20

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

)

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

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

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Volkogriz

Дата 11.9.2012, 02:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1

Код


 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;

вот так.

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »