Ejecutar un Programa desde delphi

[cancun]

Hola


Prueba este a ver si te sirve

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;

Funciona de este modo

Ejecutar('C:\Carpeta\Programa.exe',true); // True esperar a que termine el programa

Espero te sirva

Saludos

[wcbs]

Gracias cancun
estoy probando también tu código, por favor indicame en parte del código debo poner la ruta
del programa para que se ejecute, es que estoy muy nuevo en esto de programación...

Código Delphi [-]
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;

Un saludo para ti de nuevo...

[cancun]

La ruta va en el pimer parametro cuando llamas a la función "Ejecutar" como ves en el ejemplo

Ejecutar('C:\Carpeta1\Carpeta2\Programa.exe',true); // True esperar a que termine el programa

[wcbs]

Ok...cancun lo estoy probando pero me salen todos estos errores aca ...

Código Delphi [-]
project1.lpr(12,33) Error: Identifier not found "TProcessInformation"
project1.lpr(12,33) Error: Error in type definition
project1.lpr(13,22) Error: Identifier not found "TStartupInfo"
project1.lpr(13,22) Error: Error in type definition
project1.lpr(17,16) Hint: Local variable "Info" does not seem to be initialized
project1.lpr(18,8) Error: Illegal qualifier
project1.lpr(19,8) Error: Illegal qualifier
project1.lpr(19,37) Error: Identifier not found "STARTF_USESHOWWINDOW"
project1.lpr(20,8) Error: Illegal qualifier
project1.lpr(20,34) Error: Identifier not found "SW_SHOWNORMAL"
project1.lpr(21,24) Error: Identifier not found "CreateProcess"
project1.lpr(23,30) Error: Identifier not found "WaitForSingleObject"
project1.lpr(23,40) Error: Illegal qualifier
project1.lpr(23,67) Error: Identifier not found "Wait_TimeOut"
project1.lpr(25,18) Error: Identifier not found "Application"
project1.lpr(26,21) Error: Identifier not found "Application"
project1.lpr(29,1) Fatal: Syntax error, "BEGIN" expected but "END" found

No se por que estoy haciendo todos los pasos señalados, solo el ejemplo de ecfisa lo corre
pero no llega a entrar el juego no se por que tampoco....

seguiré a ver como le encontramos la solución...

[cancun]

Agrega al Uses la unidad Windows

Uses SysUtils, Forms, DBTables, Windows, Printers, WinSpool, Classes,...

[wcbs]

Gracias amigo cancun por ayudarme

mira ahora ya no da los errores pero te pongo por acá como tengo el código de seguro encontraras mis errores de por que no trabaja, este es como lo tengo y asta ahora estoy probando por abrir
el notepad para probar.

Código Delphi [-]
program Project2;

{$APPTYPE CONSOLE}

uses  ShellApi, SysUtils, Forms, DBTables, Windows, Printers, WinSpool, Classes;
function Ejecutar(Programa:String;Esperar:Boolean=True):Boolean;
var ProcInfo:TProcessInformation;
    Info:TStartupInfo;

begin
  ShellExecute(0,'open', 'notepad.exe','','C:\windows',0);

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;

  { TODO -oUser -cConsole Main : Insert code here }
end.

dale un vistazo e indicame donde esta mi error... por favor..

[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.