FileExp.PAS

Language:
Русский
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.

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //