Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];
ВнизЗапускаю архиватор через shellexecute, как узнать когда закончил Найти похожие ветки
← →
Sergey_Elf (2002-10-10 10:32) [0]Из программы запускаю архиватор через shellexecute, как узнать когда он закончил работу?
← →
MBo (2002-10-10 10:34) [1]запускай Createprocess
пример с ожиданием в FAQ
← →
Alx2 (2002-10-10 10:40) [2]или используй ShellExecuteEx - в нем также можно выяснить хэндл запущенного процесса для "пример с ожиданием в FAQ"
← →
Sergey_Elf (2002-10-10 10:48) [3]Огромное спасибо за такой сверхбыстрый ответ, но пока не работает, видимо из-за того, что я пытаюсь передавать параметры в командной строке, или не здесь искать ошибку?
← →
Alx2 (2002-10-10 10:55) [4]>Sergey_Elf (10.10.02 10:48)
Не искать.
Тебе нужен хэндл процесса и WaitForSingleObject
Вот непроверенный пример с CreateProcess и архиватором
var
PInf: TProcessInformation;
StInfo: TStartupInfo;
begin
fillchar(StInfo, sizeof(StInfo), 0);
StInfo.dwFlags := STARTF_USESHOWWINDOW;
if not CreateProcess("pkzip.exe", PChar("some.zip"), nil, nil, False, 0, nil, nil, stInfo, PInf) then exit;
WaitForSingleObject(PInf.hProcess, INFINITE);
end;
← →
Song (2002-10-10 10:57) [5]Ошибка в 17-ой строке.
← →
andrey_pst (2002-10-10 11:07) [6]
var
PChTmp : PChar;
si : STARTUPINFO;
pi : PROCESS_INFORMATION;
...
PChTmp := StrNew(PChar(ExtractShortPathName(GetCurrentDir) + "\rar.exe a " + fdPath + n_kontrakt + ".rar " + fdPath + n_kontrakt + "\*.xls -df -ep -m5 -ri15:0 -s -rr"));
ZeroMemory(@si, sizeof(si));
si.cb := SizeOf(si);
if not CreateProcess( nil, PChTmp, nil, nil, False, 0, nil, nil, si, pi ) then exit;
WaitForSingleObject(pi.hProcess, INFINITE);
CloseHandle( pi.hProcess );
CloseHandle( pi.hThread );
StrDispose(PChTmp);
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c