16.1.18. Процедура GetDir
procedure GetDir(D: Byte; var S: string);
Помещает имя текущего каталога накопителя с номером D в строку S.
D - номер накопителя (0 - текущий накопитель, 1 - накопитель А, 2 - накопитель Вит. д.);
S - строка, в которую помещается имя каталога (включая путь к нему).
При неправильном номере накопителя D в строку помещаются символы ' \ : \ '.
|