Ejecutar un Programa desde delphi

[wcbs]

Hola amigos del foro

estoy tratando de ver como hacer una pequeña aplicación en delphi que me permita
correr otro programa, pero no quiero que la aplicación me abra un formulario, si no
que al ejecutar el archivo que haga en delphi me corra el otro que tengo en otra carpeta
oculta, e buscado varios ejemplo pero no lo e conseguido.

Aver como me pueden dar una ayuda con esto.


de antemano les doy las gracias....

[cancun]

Hola


Seria bueno que dijeras que es lo que haz intentado (y por que no te funciona? da error?) para que no te respondan la que ya probaste.


Saludos

[wcbs]

Hola cancun y gracias por responder

como decía mas arriba, yo tengo un juego en la pc de los niños pero no quiero que ellos entren en la carpeta donde esta el juego, lo que quiero es hacer un aplicación para ponerlo en en la carpeta game
donde va el juego , pero el juego lo tengo en documens and Settin pero de manera oculta asi ellos
no lo pueden tocar, pero e leído ejemplos como este:
---------------------------------------------------------------------------------------------------------------------------------------
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;
--------------------------------------------------------------------------------------
Pero no me funciona, también como decía arriba, que la plicacion no me muestre ninguna
venta o formulario que solo ejecute el juego, pero no tengo ni idea de como hacerlo.

A ver que me dice.....

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