| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как дождаться окончания работы, параллельно запущенной программк [D5]

Leon777 ©   (2002-10-30 15:57:00) 

Из программы, параллельно, запускаю DOS приложение
(winexec("x.exe < x.in > xvw.txt",SW_SHOWMINIMIZED);)
…
Эта программка создает файлы с результатами своей деятельности
В основной программе я использую эти результаты, поэтому мне позарез необходимо дождаться окончания работы DOSовской проги. Как это сделать?
Максимум, что я смог, это дождаться создания файла, но не полного окончания работы с ним DOS программы!
(WaitForSingleObject(FileCreate(""xout.txt "),INFINITE);)
Пробовал запускать с помощью OLE, тоже не смог отследить.
Поможите люди добрые кто как могёт. Хотя, конечно, чем проще код – тем лучше.

---

Wizard_Ex   (2002-10-30 16:47:00) [1]

Пожалуйста. Был рад помочь.

---

Leon777   (2002-10-30 16:45:00) [2]

Благодарствую. Осмысливаю код.
Проверил, работает.
Выручили, а то я уже Хэндланулся.
Один из моих вариантов был близок, но
хендлы, флажочки и нитки так забили мою голову,
что чего-то все время не хватало.
Осмысливаю это чего-то.
Спасибо!

---

Wizard_Ex   (2002-10-30 16:19:00) [3]

Может так лучше?
var
si : Tstartupinfo;
p : Tprocessinformation;
nn : string;
begin

nn:="Ptp.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;

---

Наверх