
$#{bmc bm1.BMP} Delphi Object and Component Reference
{bmc bm9.BMP} ParamCount, ParamStr example
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.
*) 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  for (int i=1;i<=ParamCount();i++)
  {
    if (LowerCase(ParamStr(i)) == "beep")
      Beep(10000,1000);
    else if (LowerCase(ParamStr(i)) == "exit")
      Application->Terminate();
  }
} 
