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 )