Ejecutar un Programa desde delphi

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

[wcbs]

Muy Bien excelente amigos me corre la prueba con el notepad...ahora probare con el juego

espero llegar a saber tanto así como ustedes y poder dar apoyo a quien lo necesite

Gracias.... amigos....

[wcbs]

hola de Nuevo yo...

ecefisa probé ahora con el juego , hace lo siguiente, cuando corro ya el archivo compilado
el que me llama al el juego veo que me carga el ejecutable del juego pero la pantalla se pone negra,
peri so pongo el ejecutable echo con delphi en la misma carpeta del juego el juego se ejecuta bien..

pero yo quiero poner el juego en otra carpeta que tengo oculta y el que estamos haciendo en la carpeta que dice juegos que debería hacer en este caso, seprodra eliminar que no salga la pantalla
de cmd, que no se vea...?


que me dices...

[ecfisa]

Hola wcbs.

Como te mencioné al principio, creo que la opción mas simple es hacer un acceso directo desde windows en el escritorio y luego cortarlo y pegarlo en la carpeta que desees (creo que mencionaste "game").
De ese modo no tendrán que acceder a la carpeta donde reside el juego para ejecutarlo.

Saludos.

[wcbs]

ok...

lo que pasa con el acceso directo...es que revela donde esta el juego y estos chicos no son fácil
por eso es que mejor estoy buscando la manera de hacer un ejecutable...ponerlo en la carpeta del juego y el juego dejarlo bien oculto....

por eso el acceso directo no me sirve...