Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.07;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.014 c
6-20651
TVV
2003-05-17 16:14
2003.08.07
Доступ к сетевым ресурсам


4-20856
mike.dld
2003-06-03 21:29
2003.08.07
DrawText ???


14-20776
terra
2003-07-20 23:51
2003.08.07
Pascal и микроконтроллеры


3-20377
Sectey
2003-07-03 08:58
2003.08.07
TTable->TDataSetProvider->TClientDataSet


1-20544
Артем К
2003-07-23 15:40
2003.08.07
Как уменьшить увеличить яркость картинки?