Programación General > Delphi

 Problema Al Ejecutar Aplicacion Con Parametros

(1/1)

RazoR:
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á

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.

Alpha_:
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.

RazoR:
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 ---ShellExecute(Form1.Handle,      nil,      PChar(ExtractFilePath(Application.ExeName) + 'ZSNES&#092;zsnesw.exe'),      Pchar(ExtractFilePath(Application.ExeName) + 'Juegos&#092;' + listbox1.Items.Strings[listbox1.Itemindex] + '&#092;rom.smc'),      PChar(ExtractFilePath(Application.ExeName) + 'Juegos&#092;' + listbox1.Items.Strings[listbox1.Itemindex] + '&#092;'),      SW_SHOWNORMAL); 
También anda de ésta manera:


--- Código: Text ---ShellExecute(Form1.Handle,      'open',      PChar(ExtractFilePath(Application.ExeName) + 'ZSNES&#092;zsnesw.exe'),      Pchar(ExtractFilePath(Application.ExeName) + 'Juegos&#092;' + listbox1.Items.Strings[listbox1.Itemindex] + '&#092;rom.smc'),      PChar(ExtractFilePath(Application.ExeName) + 'Juegos&#092;' + listbox1.Items.Strings[listbox1.Itemindex] + '&#092;'),      SW_SHOWNORMAL); 
Saludos, Gonzalo.

Navegación

[0] Índice de Mensajes