Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: GetDir
GetDir
|
procedure GetDir ( Drive : Byte; var Directory : string ) ; |
Процедура (Unit System)
|
Получает текущий каталог (диск плюс путь) для указанного диска.
|
Описание:
|
Процедура GetDir сохраняет в переданной строке параметра Directory диск указанный в параметре Drive плюс путь к текущему каталогу. Значения параметра Drive: 0 = Текущий диск 1 = диск А 2 = диск B 3 = диск C 4 = диск D |
Пример кода: Получение директории для диска C
|
var DirName : string; begin GetDir(3, DirName); // Сохраняем директорию C: в переменной DirName ShowMessage(DirName); end;
Результат:
|
Следующий вывод будет обязательно изменятся на других ПК: Program FilesBorlandDelphi7Projects |