Intéressant

Exécution d'applications Delphi avec des paramètres

Exécution d'applications Delphi avec des paramètres

Bien que cela soit beaucoup plus courant à l'époque du DOS, les systèmes d'exploitation modernes vous permettent également d'exécuter des paramètres de ligne de commande sur une application afin de pouvoir spécifier ce que celle-ci doit faire.

Il en va de même pour votre application Delphi, que ce soit pour une application console ou avec une interface graphique. Vous pouvez passer un paramètre à partir d’une invite de commande sous Windows ou de l’environnement de développement sous Delphi, sous Exécuter> Paramètres option de menu.

Pour ce didacticiel, nous allons utiliser la boîte de dialogue des paramètres pour passer des arguments de ligne de commande à une application afin que ce soit comme si nous l'exécutions à partir de l'Explorateur Windows.

ParamCount et ParamStr ()

le ParamCount fonction renvoie le nombre de paramètres transmis au programme sur la ligne de commande, et ParamStr renvoie un paramètre spécifié à partir de la ligne de commande.

le OnActivate Le gestionnaire d’événements du formulaire principal est généralement celui où les paramètres sont disponibles. Lorsque l'application est en cours d'exécution, c'est là qu'ils peuvent être récupérés.

Notez que dans un programme, le CmdLine variable contient une chaîne avec des arguments de ligne de commande spécifiés lors du démarrage de l'application. Vous pouvez utiliser CmdLine pour accéder à la totalité de la chaîne de paramètre transmise à une application.

Exemple d'application

Démarrer un nouveau projet et placer un Bouton composant sur Forme. Dans le bouton Sur clic gestionnaire d'événements, écrivez le code suivant:

procédure TForm1.Button1Click (Sender: TObject);

commencer

ShowMessage (ParamStr (0));

fin;

Lorsque vous exécutez le programme et cliquez sur le bouton, un message apparaît avec le chemin d'accès et le nom du programme en cours d'exécution. Tu peux voir ça ParamStr "fonctionne" même si vous n'avez transmis aucun paramètre à l'application; En effet, la valeur du tableau 0 stocke le nom de fichier de l'application exécutable, y compris les informations de chemin d'accès.

Choisir Paramètres du Courir menu, puis ajouter Programmation Delphi à la liste déroulante.

Remarque: N'oubliez pas que lorsque vous transmettez des paramètres à votre application, séparez-les par des espaces ou des tabulations. Utilisez des guillemets doubles pour insérer plusieurs mots dans un même paramètre, comme lors de l’utilisation de noms de fichiers longs contenant des espaces.

La prochaine étape consiste à parcourir les paramètres en utilisant ParamCount () pour obtenir la valeur des paramètres en utilisant ParamStr (i).

Modifiez le gestionnaire d'événement OnClick du bouton comme suit:

procédure TForm1.Button1Click (Sender: TObject);

var

j: entier;

commencer j: = 1 à ParamCount faire

ShowMessage (ParamStr (j));

fin;

Lorsque vous exécutez le programme et cliquez sur le bouton, un message indiquant "Delphi" (premier paramètre) et "Programmation" (second paramètre) apparaît.