IPB

> FileExp.PAS
Форум
Загрузка...
 
Час быка
Час быка
Карта Интернета
Internet Map
Яндекс.Метрика

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.

 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 


-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"