Ausführen von Delphi-Anwendungen mit Parametern

Obwohl dies zu DOS-Zeiten weit verbreitet war, können Sie mit modernen Betriebssystemen auch Befehlszeilenparameter für eine Anwendung ausführen, damit Sie angeben können, was die Anwendung tun soll.

Gleiches gilt für Ihre Delphi-Anwendung, sei es für eine Konsolenanwendung oder eine Anwendung mit einer grafischen Benutzeroberfläche. Sie können einen Parameter von der Eingabeaufforderung in Windows oder von der Entwicklungsumgebung in Delphi unter dem Befehl übergeben Ausführen> Parameter Menüoption.

In diesem Lernprogramm verwenden wir das Dialogfeld "Parameter", um Befehlszeilenargumente an eine Anwendung zu übergeben, sodass es so aussieht, als würden wir es vom Windows Explorer aus ausführen.

ParamCount und ParamStr ()

Das ParamCount Die Funktion gibt die Anzahl der Parameter zurück, die an das Programm in der Befehlszeile übergeben wurden ParamStr Gibt einen angegebenen Parameter über die Befehlszeile zurück.

Das OnActivate Event-Handler des Hauptformulars sind normalerweise dort, wo die Parameter verfügbar sind. Wenn die Anwendung ausgeführt wird, können sie dort abgerufen werden.

Beachten Sie, dass in einem Programm die CmdLine Variable enthält eine Zeichenfolge mit Befehlszeilenargumenten, die beim Starten der Anwendung angegeben wurden. Sie können verwenden CmdLine um auf die gesamte an eine Anwendung übergebene Parameterzeichenfolge zuzugreifen.

Beispielanwendung

Starten Sie ein neues Projekt und platzieren Sie a Taste Komponente auf Bilden. In der Schaltfläche OnClick Ereignishandler, schreiben Sie den folgenden Code:

 Verfahren TForm1.Button1Click (Absender: TObject);

Start

 ShowMessage (ParamStr (0));

 Ende;

Wenn Sie das Programm ausführen und auf die Schaltfläche klicken, wird ein Meldungsfeld mit dem Pfad und dem Dateinamen des ausführenden Programms angezeigt. Sie können sehen, dass ParamStr "funktioniert", auch wenn Sie der Anwendung keine Parameter übergeben haben; Dies liegt daran, dass der Array-Wert 0 den Dateinamen der ausführbaren Anwendung einschließlich der Pfadinformationen speichert.

Wählen Parameter von dem Lauf Menü, und fügen Sie dann hinzu Delphi-Programmierung zur Dropdown-Liste.

Hinweis: Denken Sie daran, dass Sie beim Übergeben von Parametern an Ihre Anwendung diese durch Leerzeichen oder Tabulatoren trennen. Verwenden Sie doppelte Anführungszeichen, um mehrere Wörter als einen Parameter umzubrechen, z. B. bei langen Dateinamen, die Leerzeichen enthalten.

Im nächsten Schritt durchlaufen Sie die Parameter mit ParamCount () Um den Wert der Parameter zu erhalten, verwenden Sie ParamStr (i).

Ändern Sie die OnClick-Ereignisbehandlungsroutine der Schaltfläche wie folgt:

 Verfahren TForm1.Button1Click (Absender: TObject);

var

 j: ganze Zahl;

 beginfor j: = 1 zu ParamCount tun

 ShowMessage (ParamStr (j));

 Ende;

Wenn Sie das Programm ausführen und auf die Schaltfläche klicken, wird die Meldung "Delphi" (erster Parameter) und "Programming" (zweiter Parameter) angezeigt..