getargst.pas

 {GetArgSt.PAS}
 
 { Пример программы для функции GetArgStr }
 
 Uses WinDos;
 
 Var ArgN : PChar;
 
 Begin
  GetMem(ArgN, 20);
  GetArgStr(ArgN, 1, 19);
  WriteLn('Первый параметр командной строки : "', ArgN, '"');
 End.