Автор Михаил Сергиенко задал вопрос в разделе Другие языки и технологии
как отследить завершение процесса в Delphi? и получил лучший ответ
Ответ от Николай Морозов[активный]
Можешь попробовать так:
procedure Start;
var
si: TStartupInfo;
p: TProcessInformation;
begin
FillChar(Si,SizeOf(Si),0);
with Si do begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
Form1.WindowState:=wsMinimized;
Createprocess(nil,'c:windowssndrec32.exe e:/temp.wav',nil,nil,false,
Create_default_error_mode,nil,nil,si,p);
Waitforsingleobject(p.hProcess,infinite);//ожидание завершения программы
Form1.WindowState:=wsNormal;
end;
Если не получится запустить тогда делай по другому. Можно еще просто получать список процессов и проверять если процесса в списке нет то делать что-то. Помещать наверно удобнее код в таймере.
Если делать на делфях не обязательно, то эту задачу легко на bat-файле решить можно. Если же нужно именно на делфи, то сразу после этого запускай цикл
while(FindWindow(nil,'Заголовок окна')!=nil)do;
Возможно не скомпильнётся (давно на делфях не кодил) , но суть, я надеюсь, понял
Как в Delphi скопировать строку типа string в буфер обмена?
Ой, ну и намудрили же.
uses ClipBrd;
...