Chamar um executavel e so continuar quando ele for fechado
Colegas,
Como faço para chamar um executavel no meio de uma rotina e nao continuar a rotina ate que o executavel seja fechado.
OBS.: Nao tenho dificuldade em chamar o executavel.
Como faço para chamar um executavel no meio de uma rotina e nao continuar a rotina ate que o executavel seja fechado.
OBS.: Nao tenho dificuldade em chamar o executavel.
Anonymous
Curtidas 0
Respostas
Anonymous
06/03/2003
bom, essa dica está contida na seção de funções e exemplos da pagina do clube delphi, mas para facilitar para o teu lado.... olha aí abaixo!!!
procedure TForm1.Button1Click(Sender: TObject);
var
startupinfo: Tstartupinfo;
ProcessInfo: TprocessInformation;
begin
FillChar(startupinfo,sizeof(Tstartupinfo),0);
startupinfo.cb:=sizeof(Tstartupinfo);
if createProcess(nil, ´notepad.exe´,nil,nil,false,normal_priority_class,nil,´c:\windows´,startupinfo,processinfo) then
waitforsingleobject(processinfo.hprocess,infinite);
closehandle(processinfo.hprocess);
showmessage(´Execução do Bloco de Notas encerrada.´);
end;
end.
[]´s
Rodrigo Duarte.
procedure TForm1.Button1Click(Sender: TObject);
var
startupinfo: Tstartupinfo;
ProcessInfo: TprocessInformation;
begin
FillChar(startupinfo,sizeof(Tstartupinfo),0);
startupinfo.cb:=sizeof(Tstartupinfo);
if createProcess(nil, ´notepad.exe´,nil,nil,false,normal_priority_class,nil,´c:\windows´,startupinfo,processinfo) then
waitforsingleobject(processinfo.hprocess,infinite);
closehandle(processinfo.hprocess);
showmessage(´Execução do Bloco de Notas encerrada.´);
end;
end.
[]´s
Rodrigo Duarte.
GOSTEI 0