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
Imagen

"Me saltó el avira cuando estaba mirando la foto de slandg... ¿como puedo modearlo? " - Skillmax
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
Lo haría si supiera Java
Saludos
Imagen

"Me saltó el avira cuando estaba mirando la foto de slandg... ¿como puedo modearlo? " - Skillmax
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.
http://www.freundt-esta-aburrido.blogspot.com
Responder

Volver a “Manuales”