fileexp.pas

Пример программы для функции 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