ParamCount (Delphi)
Description
The following example beeps once for each "beep" passed in on the command line. The example terminates the application if exit is passed in on the command line. Build the project to generate a .exe file and then execute that file from a command line: "ParamCount_proj beep beep exit".
Code
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
// Use print statements since you cannot use the debugger.
// MessageDlg(
// 'System ParamCount = ' + IntToStr(System.ParamCount),
// mtConfirmation, [mbOK], 0);
for i := 1 to System.ParamCount do
begin
if LowerCase(ParamStr(i)) = 'beep' then
Beep
else if LowerCase(ParamStr(i)) = 'exit' then
Application.Terminate;
Sleep(250);
end;
end;
Uses
- System.ParamCount ( fr | de | ja )
- System.ParamStr ( fr | de | ja )
- System.SysUtils.LowerCase ( fr | de | ja )
- System.AnsiStrings.LowerCase ( fr | de | ja )
- System.SysUtils.Beep ( fr | de | ja )
- Vcl.Forms.TApplication.Terminate ( fr | de | ja )