Процедура GetDir

Основы программирования
Каждый профессионал когда-то был чайником. Наверняка вам знакомо состояние, когда “не знаешь как начать думать, чтобы до такого додуматься”. Наверняка вы сталкивались с ситуацией, когда вы просто не знаете, с чего начать. Эта книга ориентирована как раз на таких людей, кто хотел бы стать программистом, но совершенно не знает, как начать этот путь. Подробнее...

Процедура GetDir в Паскале возвращает текущий каталог. Синтаксис:

 
procedure GetDir(DriveNR : byte; var Dir : ShortString); overload;

procedure GetDir(DriveNR : byte; var Dir : RawByteString); overload;

procedure GetDir(DriveNR : byte; var Dir : UnicodeString); overload;

Процедура GetDir возвращает текущий каталог диска (полный путь), где DriveNR равен 1 для первого дисковода гибких дисков, 3 - для первого жёсткого диска и т.п. Если этот параметр равен 0, то процедура возвращает каталог на текущем диске.

В системах Linux и Unix параметр DriveNR не учитывается, так как в этих системах существует только одно дерево каталогов.

В DOS процедура возвращает ошибку, если запрошенный диск не готов.

Пример:

program myprog;

var CurrDir : string;

begin
  GetDir(0, CurrDir);
  WriteLn('Current directory is: ');
  WriteLn(CurrDir);

  WriteLn(#10#13'The end. Press ENTER...');
  ReadLn;
end.

В этом примере в глобальную переменную CurrDir мы получаем текущий каталог текущего диска. То есть к каталогу, из которого запущена эта программа.

Вывод будет примерно таким:

Вступить в группу "Основы программирования"

Подписаться на канал в РУТУБ

Подписаться на Дзен-канал

Подписаться на рассылки по программированию

Как стать программистом 2.0

Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… Подробнее...

Помощь в технических вопросах

Помощь студентам. Курсовые, дипломы, чертежи (КОМПАС), задачи по программированию: Pascal/Delphi/Lazarus; С/С++; Ассемблер; языки программирования ПЛК; JavaScript; VBScript; Fortran; Python и др. Разработка (доработка) ПО ПЛК (предпочтение - ОВЕН, CoDeSys 2 и 3), а также программирование панелей оператора, программируемых реле и других приборов систем автоматизации. Подробнее...

Главная
Контакты