Правила форума
GetDir.PASЯзык:
Русский
English
{ Пример программы для процедуры GetDir }
uses Crt;
var
S : String;
begin
GetDir(0, S); { 0 - Текущий диск }
WriteLn('Текущие диск и директория : ', S);
end.
var
S : String;
begin
GetDir(0, S); { 0 - Текущий диск }
WriteLn('Текущие диск и директория : ', S);
end.
::
::
::
