Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.13;
Скачать: CL | DM;

Вниз

Как запустить другое приложение и дождаться его завершения?   Найти похожие ветки 

 
SergP ©   (2005-01-27 23:40) [0]

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


 
DrPass ©   (2005-01-27 23:43) [1]

CreateProcess + WaitForSingleObject


 
Gero ©   (2005-01-27 23:43) [2]

function ExecAndWait(FileName: string): Boolean;
var
 zAppName: array[0..512] of Char;
 StartupInfo: TStartupInfo;
 ProcessInfo: TProcessInformation;
 Res: Cardinal;
begin
 StrLCopy(zAppName, PChar(FileName), Length(FileName));
 FillChar(StartupInfo, SizeOf(StartupInfo), #0);
 StartupInfo.cb := SizeOf(StartupInfo);
 StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
 StartupInfo.wShowWindow := SW_SHOW;
 if not CreateProcess(nil, zAppName, nil, nil, False, CREATE_NEW_CONSOLE or
  NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
   Result := False
 else
   begin
     WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
     GetExitCodeProcess(ProcessInfo.hProcess, Res);
     Result := Res = 0;
   end;
end;



Страницы: 1 вся ветка

Текущий архив: 2005.02.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.06 c
1-1106987309
magical_g
2005-01-29 11:28
2005.02.13
Как можно записать в нетипезированый файл массив строк.


14-1106372997
boriskb
2005-01-22 08:49
2005.02.13
Мужчина и женщина


1-1106934373
Юрий К
2005-01-28 20:46
2005.02.13
RichEdit и Unicode.


14-1106490412
Qu
2005-01-23 17:26
2005.02.13
Копирование текста.


14-1106732405
WondeRu
2005-01-26 12:40
2005.02.13
Месяцы за Progress Bar ом!