Hola wcbs.
Solamente copia la función que te mostró
cancun, agrega las unidades
Windows y
Forms y llámala:
Código Delphi
[-]
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows, Forms;
function Ejecutar(Programa:String;Esperar:Boolean=True):Boolean;
var
ProcInfo:TProcessInformation;
Info:TStartupInfo;
begin
FillChar(Info,SizeOF(Info),0);
Info.cb:=SizeOf(Info);
Info.dwFlags:=STARTF_USESHOWWINDOW;
Info.wShowWindow:=SW_SHOWNORMAL;
Result:=CreateProcess(nil,PChar(Programa),nil,nil,False,0,nil,nil,Info,ProcInfo);
if Esperar then
while WaitForSingleObject(ProcInfo.hProcess,100)=Wait_TimeOut do
begin
Application.ProcessMessages;
if Application.Terminated then Break;
end;
end;
begin
Ejecutar('C:\Carpeta1\Carpeta2\Programa.exe', true) end.
Saludos.