• Manuales

 #162725  por [email protected]
 
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: Seleccionar todo
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: Seleccionar todo
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: Seleccionar todo
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: Seleccionar todo
Parametro.exe -msg Hola
El programa entonces escribira Hola en la consola :D
asi de facil, espero que hayan ententido.

Saludos
 #163985  por xepii
 
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
 
Para al que quiere hacer esto en VB6, Se puede hacer con la función Command(), un ejemplo:
Código: Seleccionar todo
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.