Запомнить меня на этом копьютере
Пример программы для функции FileExpand.
{FileExp.PAS} { Пример программы для функции FileExpand } Uses WinDos; Const MyFile : PChar = 'TEST.FIL'; Var Where : PChar; Begin GetMem(Where, 80); FileExpand(Where, MyFile); WriteLn(MyFile, ' создан в текущей директории. Полное имя: ', Where); End.
Скачать fileexp.pas