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