Chamar um executavel e so continuar quando ele for fechado

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.