Mail

В этот день много лет назад...
25 апреля. В 1644 году (380 лет назад) - Китайские повстанцы берут Пекин, император кончает самоубийством, положив конец династии Минь.

Turbo Pascal Documentation

Процедура GetDir

     Функция: Возвращает текущий каталог на заданном диске.
     Описание: GetDir(d : byte; var s : string)
     Примечания: Параметр d представляет собой выражение це-
лого  типа, а s - переменную строкового типа. Значение теку-
щего каталога на диске, заданного параметром d, возвращается
в  переменной  s. Значение d = 0 указывает на текущий диско-
вод, 1 - задает дисковод А, 2 - В и т.д.
     При  указании  директивы  компилятора   {I-}   функция
IORеsult будет возвращать значение 0 в том случае, если опе-
рация завершилась успешно, и ненулевой код ошибки в  против-
ном случае.
     Прочее: См. также процедуры ChDir, MkDir, RmDir.