• Programa con Parámetros (Delphi)

 #162725  por [email protected]
 27 Mar 2010, 20:33
Hola!, hoy simplemente vengo a explicar como ejecutar un programa hecho en Delphi con parámetros.
Que es un parámetro? un ejemplo simple es cuando usamos el UPX desde la consola de Windows:
Código: [ Debe registrarse para ver este enlace ]
UPX.exe -9 archivo.exe
Como pueden ver estamos ejecutando el programa UPX.exe con los parámetro -9 y archivo.exe.

Para hacer eso con un programa de Delphi, se usa la función ParamStr()
Código: [ Debe registrarse para ver este enlace ]
Function ParamStr(ParmIndex: Integer): String;
Por lo tanto:
ParamStr(0) devuelve la ruta desde donde se esta ejecutando nuestro programa.
ParamStr(1) devuelve el primer parámetro.
ParamStr(2) devuelve un segundo parámetro y asi podemos continuar...

Un ejemplo:
Código: [ Debe registrarse para ver este enlace ]
Program Parametro;

Begin
  If (ParamStr(1)) = '-msg' Then
    Begin
      WriteLn(ParamStr(2));
    End;
End.
Lo podemos ejecutar desde la consola de Windows de esta forma:
Código: [ Debe registrarse para ver este enlace ]
Parametro.exe -msg Hola
El programa entonces escribira Hola en la consola :D
asi de facil, espero que hayan ententido.

Saludos
 #163985  por xepii
 31 Mar 2010, 22:01
mmmmm nose si sera igual que en java los argumentos :S mm pero si no es asi podrias ponerme un ejemplito en java porfavor ¿?.. un saludo y gracias
 #163997  por Snopk
 31 Mar 2010, 22:41
Para al que quiere hacer esto en VB6, Se puede hacer con la función Command(), un ejemplo:
Código: [ Debe registrarse para ver este enlace ]
Option Explicit

Private Sub Form_Load()

Dim Parametros()            As String
Dim x                       As Integer

Parametros = Split(Command(), " ")

For x = LBound(Parametros) To UBound(Parametros)
    MsgBox Parametros(x)
Next x

End Sub

Saludos.