Aunque era mucho más común en los días de DOS, los sistemas operativos modernos también le permiten ejecutar parámetros de línea de comandos en una aplicación para que pueda especificar qué debe hacer la aplicación.
Lo mismo es cierto para tu Delphi aplicación, ya sea para un aplicación de consola o uno con una GUI. Puede pasar un parámetro desde el símbolo del sistema en Windows o desde el entorno de desarrollo en Delphi, debajo de Ejecutar> Parámetros opción de menú
Para este tutorial, utilizaremos el cuadro de diálogo de parámetros para pasar argumentos de línea de comandos a una aplicación para que sea como si lo estuviéramos ejecutando desde el Explorador de Windows.
ParamCount y ParamStr ()
los ParamCount La función devuelve el número de parámetros pasados al programa en la línea de comando, y ParamStr devuelve un parámetro especificado desde la línea de comando.
los OnActivate El controlador de eventos del formulario principal es generalmente donde están disponibles los parámetros. Cuando la aplicación se está ejecutando, es allí donde se pueden recuperar.
Tenga en cuenta que en un programa, el CmdLine La variable contiene una cadena con argumentos de línea de comando especificados cuando se inició la aplicación. Puedes usar CmdLine para acceder a toda la cadena de parámetros pasada a una aplicación.
Aplicación de muestra
Poner en marcha un nuevo proyecto y colocar un Botón componente en Formar. En el botón Al hacer clic controlador de eventos, escriba el siguiente código:
procedimiento TForm1.Button1Click (Remitente: TObject);
empezar
ShowMessage (ParamStr (0));
final;
Cuando ejecuta el programa y hace clic en el botón, aparece un cuadro de mensaje con la ruta y el nombre del archivo del programa en ejecución. Puedes ver eso ParamStr "funciona" incluso si no ha pasado ningún parámetro a la aplicación; Esto se debe a que el valor de matriz 0 almacena el nombre del archivo de la aplicación ejecutable, incluida la información de ruta.
Escoger Parámetros desde el correr menú, y luego agregue Programación Delphi a la lista desplegable.
Nota: Recuerde que cuando pase parámetros a su aplicación, sepárelos con espacios o pestañas. Use comillas dobles para ajustar varias palabras como un parámetro, como cuando se usan nombres de archivo largos que contienen espacios.
El siguiente paso es recorrer los parámetros usando ParamCount () para obtener el valor de los parámetros usando ParamStr (i).
Cambie el controlador de eventos OnClick del botón a esto:
procedimiento TForm1.Button1Click (Remitente: TObject);
var
j: entero;
comenzar para j: = 1 a ParamCount hacer
ShowMessage (ParamStr (j));
final;
Cuando ejecuta el programa y hace clic en el botón, aparece un mensaje que dice "Delphi" (primer parámetro) y "Programación" (segundo parámetro).