Скачать: CL | DM;

WaitForSingleObject   Найти похожие ветки 

← →
Dmitriy Polskoy ©   (2002-08-28 16:24) [0]

У меня такая проблема: я запускаю процесс(bat-файл), который, в
свою очередь, запускает еще оду программу. Как мне дождаться завершения той второй пограммы?

---

← →
Wizard_Ex ©   (2002-08-28 16:37) [1]

var
si : Tstartupinfo;
p : Tprocessinformation;
nn : string;
begin

nn:="Pftp.exe";
FillChar(si,Sizeof(si),#0);
si.cb:=Sizeof(si);
si.dwFlags:=STARTF_USESHOWWINDOW;
si.wShowWindow:=SW_SHOWNORMAL;
CreateProcess(nil,PChar(nn),nil,nil,false,0,nil,nil,si,p);
WaitForSingleObject(p.hProcess,infinite);
end;
Пользуй однако...

---

← →
Dmitriy Polskoy ©   (2002-08-28 17:07) [2]

Но у тебя запускается только одна прога. Ее конца дождаться легко. А как поступать со второй?

---

← →
Ученик ©   (2002-08-28 20:20) [3]

>Dmitriy Polskoy © (28.08.02 17:07)
Так вроде ждет или что написано в bat-файле ?

---

← →
Denvor ©   (2002-08-29 05:47) [4]

Ха!
А как в приведенном выше примере сделать так, чтобы моя программа не превращалась в паралитика и реагировала на щелчки юзера, пока вызванныя программа выполняется?Куда вставить Application.ProcessMessages?

---

← →
Slava ©   (2002-08-29 06:55) [5]

var
FExitCode: DWORD;
...

repeat
Application.ProcessMessages;
GetExitCodeProcess(P.hProcess, FExitCode);
Sleep(10);
until FExitCode <> STILL_ACTIVE;

---

← →
Слесарь Матерящийся   (2002-08-29 11:02) [6]

Ну зачем же использовать bat файл, если можно всё сделать программно?

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c