Этот вопрос поднимался и раньше но вот 100% ответ
Function OpenProgrammEXE(NameEXE:String;Ojidanie:Boolean):String;
var
si: TStartupInfo;
p: TProcessInformation;
P1: Pchar;
I:Integer;
begin
P1:=Pchar(NameExe);
FillChar(Si,SizeOf(Si),0);
Createprocess(nil,P1,nil,nil,false,Create_default_error_mode,nil,nil,si,p);
if Ojidanie=True Then Waitforsingleobject(p.hProcess,infinite);//Предназначена для ожидания завершения запущ. программы

end;