getargco.pas

 {GetArgCo.PAS}
 
 { Пример программы для функции GetArgCount }
 
 Uses WinDos;
 
 Var TheArgCount : Integer;
 
 Begin
  TheArgCount:=GetArgCount;
  WriteLn('При запуске программы было передано ', TheArgCount,
          ' параметров в командной строке.');
  WriteLn('(Не считая имени программы)');
 End.