Язык:
Русский
English
{ Пример программы для функции GetArgStr }
uses Dos;
var
ArgN : PChar;
begin
GetMem(ArgN, 20);
GetArgStr(ArgN, 1, 19);
WriteLn('Первый параметр командной строки : "', ArgN, '"');
end.
var
ArgN : PChar;
begin
GetMem(ArgN, 20);
GetArgStr(ArgN, 1, 19);
WriteLn('Первый параметр командной строки : "', ArgN, '"');
end.