Ejecutar un Programa desde delphi

[ecfisa]

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;

// Función
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;

// La llamada a función va a continuacion 
begin
  Ejecutar('C:\Carpeta1\Carpeta2\Programa.exe', true) // <- Aquí
end.

Saludos.