SoloCodigo

Programación General => Delphi => Mensaje iniciado por: RazoR en Domingo 2 de Octubre de 2005, 22:27

Título: Problema Al Ejecutar Aplicacion Con Parametros
Publicado por: RazoR en Domingo 2 de Octubre de 2005, 22:27
Bueno, estoy acá de nuevo con otro problema. El tema es así: yo quiero ejecutar un emulador de ROMs de SNES y al darle la ruta del ROM no me ejecuta ni el programa si quiera, pero si no se la doy (o sea para ejecutar el emulador normalmente) si me lo ejecuta.

Ésto es lo que uso para ejecutarlo sin el ROM:

ShellExecute(Form1.Handle,nil,PChar('"C:\Documents and Settings\Gonzalo\Mis documentos\Programacion\ZSNES Rom Loader\ZSNES\zsnesw.exe"'),'','',SW_SHOWNORMAL);

Y ésto es lo que quiero usar para ejecutarlo con el ROM:

ShellExecute(Form1.Handle,nil,PChar('"C:\Documents and Settings\Gonzalo\Mis documentos\Programacion\ZSNES Rom Loader\ZSNES\zsnesw.exe rom.smc"'),'','',SW_SHOWNORMAL);

rom.smc es el archivo del ROM. La sintaxis del ZSNES (el emulador que uso de SNES) es ésta:

Usage : zsnes [-d,-f #, ... ] <filename.sfc>
    Eg : zsnes -s -r 2 game.sfc

Para más info click acá (http://board.zsnes.com/phpBB2/viewtopic.php?t=3523&highlight=command+line)

Lo raro es que si yo voy a Inicio->Ejecutar y pongo:

"C:\Documents and Settings\Gonzalo\Mis documentos\Programacion\ZSNES Rom Loader\ZSNES\zsnesw.exe rom.smc"

Me ejecuta el emulador corriendo el ROM que elegí por lo que en teoría debería andar ésto, creo.

Alguien tiene idea de cuál puede ser el problema o una solución al mismo?

Saludos, Gonzalo

PD: al método que usé para correr el emulador con parámetros lo usé con otros programas y me anduvo bien, así que no sé por qué con éste no anda.
Título: Re: Problema Al Ejecutar Aplicacion Con Parametros
Publicado por: Alpha_ en Miércoles 5 de Octubre de 2005, 05:43
Jojo.. llegué tarde (como siempre).

Supe que pudiste resolver el problema, así que contanos cómo hiciste, así me sacás las dudas a mí, y quizás a alguien más que le pase.

Saludos,

Zorri.
Título: Re: Problema Al Ejecutar Aplicacion Con Parametros
Publicado por: RazoR en Miércoles 5 de Octubre de 2005, 12:12
Uh sí, perdón. Me olvidé de postear cómo lo resolví en éste foro :$ Al final me anduvo de ésta manera:

Código: Text
  1. ShellExecute(Form1.Handle,
  2.       nil,
  3.       PChar(ExtractFilePath(Application.ExeName) + 'ZSNES&#092;zsnesw.exe'),
  4.       Pchar(ExtractFilePath(Application.ExeName) + 'Juegos&#092;' + listbox1.Items.Strings[listbox1.Itemindex] + '&#092;rom.smc'),
  5.       PChar(ExtractFilePath(Application.ExeName) + 'Juegos&#092;' + listbox1.Items.Strings[listbox1.Itemindex] + '&#092;'),
  6.       SW_SHOWNORMAL);
  7.  

También anda de ésta manera:

Código: Text
  1. ShellExecute(Form1.Handle,
  2.       'open',
  3.       PChar(ExtractFilePath(Application.ExeName) + 'ZSNES&#092;zsnesw.exe'),
  4.       Pchar(ExtractFilePath(Application.ExeName) + 'Juegos&#092;' + listbox1.Items.Strings[listbox1.Itemindex] + '&#092;rom.smc'),
  5.       PChar(ExtractFilePath(Application.ExeName) + 'Juegos&#092;' + listbox1.Items.Strings[listbox1.Itemindex] + '&#092;'),
  6.       SW_SHOWNORMAL);
  7.  

Saludos, Gonzalo.