Запомнить меня на этом копьютере
Пример программы для процедуры GetDir.
{GetDir.PAS} { Пример программы для процедуры GetDir } Uses WinCrt; Var S : String; Begin GetDir(0, S); { 0 - Текущий диск } WriteLn('Текущие диск и директория : ', S); End.
Скачать getdir.pas