Как дождаться завершения запущенного приложения

[DennerV]

Здравствуйте, собственно мой вопрос в названии темы.........ситуация такова: я запускаю из программы на делфях другую программу, и надо чтобы первая ждала пока та не выполнится, после чего продолжила работать
вот код

procedure TForm1.Button1Click(Sender: TObject);
Var Data:String;
begin
Data:=InputBox('Ñîçäàíèå îò÷åòà','Ââåäèòå äàòó', DateToStr(Date));
ShellExecute(Handle, nil, 'B&R.exe', PAnsiChar(Copy(Data, 1, 2)+Copy(Data, 4, 2)+Copy(Data, 7, 4)), nil, SW_SHOWNA);
Sleep(10000);
ShowMessage('fhdfh');
end;

Что можно использовать вместо Sleep?

[r9m]

Нужно использовать CreateProcess

[Stilet]

э-э-э

h:=ShellExecute(Handle, nil, 'B&R.exe', PAnsiChar(Copy(Data, 1, 2)+Copy(Data, 4, 2)+Copy(Data, 7, 4)), nil, SW_SHOWNA);
 WaitForSingleObject(h,INFINITE);

Только здается мне чо ShellExecute не очень подходит. Тут лучше CreateProcess или на худой конец ShellExecuteEx - нужно получить хендл процесса.

[DennerV]

Не подскажите как это сделать, я CreateProcess ни разу не пользовался

[yuran666666]

запускаемая программа должна, к слову, получить хендл процесса, который будет завершать. Процесс получает свой хендл так, параметр SYNCHRONIZE, обратите внимание:
hopen=OpenProcess(SYNCHRONIZE, TRUE,blabla=(GetCurrentProcessId))
передает хендл через командную строку.. можете сделать как то по другому, но так проще вроде
и, да, ЖДЕТ освобождения данного хендла так:
WaitForSingleObject(h,INFINITE)

если знавли ассемблер IA-32, вот вам небольшой код программы, занимающейся самоудалением, запускающая процесс, который ее собственно и удаляет, ожидая перед этим ее завершения
слегка занимательная программка (под masm32)


блин я наоборот понял вопрос... отставить командную строку!

[Stilet]

http://www.delphiworld.narod.ru/base...terminate.html
http://yandex.ua/yandsearch?text=Cre...ammersforum.ru