Правила форума
FileExp.PASLanguage:
Русский
English
{FileExp.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the FileExpand function.}
uses WinCrt, WinDOS;
const
MyFile: PChar = 'TEST.FIL';
var
Where: PChar;
begin
GetMem(Where, 80);
FileExpand(Where, MyFile);
Writeln(MyFile, ' is in the current directory at ', Where, '.');
end.
::
::
::
