![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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...... |
#2
|
|||
|
|||
Hola
Prueba este a ver si te sirve Código:
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; Código:
Ejecutar('C:\Carpeta\Programa.exe',true); // True esperar a que termine el programa Saludos
__________________
Cancun, Q.Roo, México |
#3
|
|||
|
|||
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...
Un saludo para ti de nuevo... |
#4
|
|||
|
|||
La ruta va en el pimer parametro cuando llamas a la función "Ejecutar" como ves en el ejemplo
Código:
Ejecutar('C:\Carpeta1\Carpeta2\Programa.exe',true); // True esperar a que termine el programa
__________________
Cancun, Q.Roo, México |
#5
|
|||
|
|||
Ok...cancun lo estoy probando pero me salen todos estos errores aca ...
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... |
#6
|
|||
|
|||
Agrega al Uses la unidad Windows
Código:
Uses SysUtils, Forms, DBTables, Windows, Printers, WinSpool, Classes,...
__________________
Cancun, Q.Roo, México |
#7
|
|||
|
|||
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.
dale un vistazo e indicame donde esta mi error... por favor.. ![]() |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ejecutar un programa desde el navegador | Onti | Internet | 10 | 03-03-2007 16:50:56 |
Ejecutar otra Aplicación desde un programa Delphi | Neftali [Germán.Estévez] | Trucos | 0 | 30-06-2006 13:12:29 |
Ejecutar un programa externo desde un programa de Delphi | Roger_Fernandez | Varios | 3 | 02-09-2004 18:05:36 |
Ejecutar winzip desde programa en Delphi | Newbie | API de Windows | 6 | 11-02-2004 13:02:37 |
Ejecutar programa desde cdrom | karlosmc | Varios | 11 | 16-09-2003 01:22:12 |
![]() |
|