Även om det var mycket vanligare under DOS-dagar, låter moderna operativsystem också köra kommandoradsparametrar mot en applikation så att du kan ange vad applikationen ska göra.
Detsamma gäller för din Delphi ansökan, vare sig det gäller en konsolapplikation eller en med ett GUI. Du kan skicka en parameter från Command Prompt i Windows eller från utvecklingsmiljön i Delphi, under Kör> Parametrar menyalternativ.
För den här handledningen använder vi dialogrutan parametrar för att skicka kommandoradsargument till ett program så att det blir som om vi kör det från Windows Explorer.
ParamCount och ParamStr ()
De ParamCount - funktionen returnerar antalet parametrar som skickats till programmet på kommandoraden, och ParamStr returnerar en specificerad parameter från kommandoraden.
De OnActivate händelsehanteraren av huvudformen är vanligtvis där parametrarna är tillgängliga. När applikationen körs är det där de kan hämtas.
Observera att i ett program, CmdLine variabeln innehåller en sträng med kommandoradsargument som anges när applikationen startades. Du kan använda
CmdLine för att få åtkomst till hela parametersträngen som skickas till en applikation.Provapplikation
Starta ett nytt projekt och placera en Knapp komponent på Form. I knappens OnClick händelsehandlare, skriv följande kod:
procedur TForm1.Button1Click (avsändare: TObject);
Börja
ShowMessage (ParamStr (0));
slutet;
När du kör programmet och klickar på knappen visas en meddelanderuta med sökvägen och filnamnet för det körande programmet. Du kan se det ParamStr "fungerar" även om du inte har skickat några parametrar till applikationen; detta beror på att matrisvärdet 0 lagrar filnamnet på den körbara applikationen, inklusive sökinformation.
Välja parametrar från Springa menyn och lägg sedan till Delphi-programmering till rullgardinsmenyn.
Notera: Kom ihåg att när du skickar parametrar till din applikation ska du separera dem med mellanslag eller flikar. Använd dubbla citat för att radera flera ord som en parameter, till exempel när du använder långa filnamn som innehåller mellanslag.
Nästa steg är att gå igenom parametrarna med ParamCount () för att få värdet på parametrarna med ParamStr (i).
Ändra knappens OnClick-händelseshanterare till detta:
procedur TForm1.Button1Click (avsändare: TObject);
var
j: heltal;
beginfor j: = 1 till ParamCount do
ShowMessage (ParamStr (j));
slutet;
När du kör programmet och klickar på knappen visas ett meddelande som läser "Delphi" (första parameter) och "Programmering" (andra parameter).