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

Вниз

Запускаю архиватор через 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;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.016 c