Ejecutar un Programa desde delphi

[ecfisa]

Hola wcbs.

Se que te has tomado mucho trabajo en componer la parte de código que aparece en tu mensaje, pero nadie puede leerlo de la forma en que aparece.

Te aconsejo que cuando incluyas código en tus mensajes utilizes TAG's, aquí una imágen que explica el uso:



Por lo pronto traté de acomodarlo lo mejor que pude:

Código Delphi [-]
var    
  SEInfo: TShellExecuteInfo;    
  ExitCode: DWORD;    
  ExecuteFile, ParamString, StartInString: string;   
begin
  ExecuteFile:='c:\Windows\Calc.exe';   
  FillChar(SEInfo, SizeOf(SEInfo), 0);   
  SEInfo.cbSize:= SizeOf(TShellExecuteInfo;   
  with SEInfo do
  begin   
    fMask:= SEE_MASK_NOCLOSEPROCESS;     
    Wnd := Application.Handle;     
    lpFile := PChar(ExecuteFile);
    // ParamString contiene i parametri da passare all'applicazione.
    // lpParameters := PChar(ParamString);
    // StartInString specifica il nome della directory dell'applicazione
    // se omesso verrà usata la directory corrente.
    // lpDirectory := PChar(StartInString);
    nShow := SW_SHOWNORMAL;
  end;   
  if ShellExecuteEx(@SEInfo) then
  begin
    repeat
      Application.ProcessMessages;       
      GetExitCodeProcess(SEInfo.hProcess, ExitCode);     
    until (ExitCode  STILL_ACTIVE) or Application.Terminated;     
    ShowMessage('Calculator terminated');   
  end
  else
   ShowMessage('Error starting Calc!')
end;

Si la recomposición que hice no llegara a ser correcta, pone el código en un nuevo mensaje del modo que explica la imágen.

Saludos y gracias por tu colaboración

[ecfisa]

Hola wcbs.

Para lo que deseas hacer creo que debería bastar con crear un acceso directo al juego, pero si lo que deseas es lanzarlo desde Delphi te servirá usar la función ShellExecute.

En este hilo está tratado su funcionamiento con detalle: Enlace

Saludos.

[wcbs]

Mil Gracias amigo ecfisa e buscado a ver como es que se hace de poner el código de esa manera
para postear, pero no lo pude hacer gracias de veraz en la próxima procurare que me salga así para
poder preguntar.

y contestando tu pregunta es correcto es de ese el que e estado probando pero no me hace lo que quiero hacer como comentaba anterior mente, que es ejecutar otro programa pero sin ventanas
ni formulario, que solo al correr el ejecutable que haga en delphi me corra el otro que le ponga
a llamar.

me imagino que se puede...?

un saludo para ti también....

[ecfisa]

Hola de nuevo.

Vamos a suponer que tu juego esta hubicado en: C:\Carpeta1\Carpeta2 y se llama Game.exe.

Desde el editor de Delphi hacé lo siguiente: File -> New -> Other -> Console Application

El código, será:

Código Delphi [-]
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, ShellApi;
begin
  ShellExecute(0, 'open', 'Game.exe', '', 'C:\Carpeta1\Carpeta2', 0);
end.

Para guardarlo: File -> Save As -> (dale una ruta y un nombre) y para compilarlo: Project -> Compile (o Ctrl+F9) y ya tenes listo tu lanzador.

Saludos.

Edito: Por supuesto deberás cambiar la ruta y nombre de programa del ejemplo por los que existan en tu equipo...

[wcbs]

Hola ecfisa

Probé tu código , pero hace lo siguiente, sale la ventana de la consola y ejecuta el game,exe
pero no corre se cierra de una vez al parecer falta algo mas o la aplicación debe esperar
que el juego termine de correr o darle al gun tiempo a la ejecución.

sera eso que me falta..

Un Saludo de Nuevo......

[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