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

Ожидание завершение запущеной программы   Найти похожие ветки 

← →
aa5E1   (2003-07-25 13:44) [0]

Как запустить программу из сваей программы и ждать ее завершения работы?
Если не трудно то кодом а не теорией. :)

---

← →
___Nikolay ©   (2003-07-25 14:41) [1]

Вспомнилось: "Программа запущена... сильно запущена...."
Вот:


procedure TForm1.Button3Click(Sender: TObject);
var
si: STARTUPINFO;
pi: PROCESS_INFORMATION;
cmdline: string;
begin
ZeroMemory(@si,sizeof(si));
si.cb:=SizeOf(si);
cmdline:="c:\command.com";
if not CreateProcess( nil, { No module name (use command line). }
PChar(cmdline), { Command line. }
nil, { Process handle not inheritable. }
nil, { Thread handle not inheritable. }
False, { Set handle inheritance to FALSE. }
0, { No creation flags. }
nil, { Use parent"s environment block. }
nil, { Use parent"s starting directory. }
si, { Pointer to STARTUPINFO structure. }
pi ) { Pointer to PROCESS_INFORMATION structure. }
then
begin
ShowMessage( "CreateProcess failed." );
Exit;
end;
WaitForSingleObject( pi.hProcess, INFINITE );
CloseHandle( pi.hProcess );
CloseHandle( pi.hThread );
ShowMessage("Done !");
end;


---

← →
aa5E1   (2003-07-25 16:54) [2]

Спасиба

---

← →
aa5E1   (2003-07-25 16:55) [3]

тезка :)

---

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

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



Память: 0.45 MB
Время: 0.012 c