FileExpand (функция) (модуль WinDos)

Язык:
Русский
English

 FileExpand (функция)     (модуль WinDos)


Расширяет имя файла до полного.

Объявление

 Function FileExpand(Dest, Name : PChar) : PChar;

Режим

Windows, Real, Protected

Замечания

Расширяет имя файла переданное как параметр Name до полного. Возникающее в результате имя преобразовывается в верхний регистр и состоит из:

   - Символа дисковода
   - Двоеточия
   - Пути к каталогу
   - Имени файла

Все ссылки типа '.' и '..' удаляются и все компоненты имен и расширении усекаются до 8-и и 3-х символов соответственно. Полученное имя файла записывается в переменную Dest.

Пусть текущий диск и каталог будет C:\SOURCE\PAS, тогда следующие обращения к FileExpand вернут такие значения:

 FileExpand(S, 'test.pas') = 'C:\SOURCE\PAS\TEST.PAS'
 FileExpand(S, '..\*.TPW') = 'C:\SOURCE\*.TPW'
 FileExpand(S, 'c:\bin\turbo.exe') = 'C:\BIN\TURBO.EXE'

Чтобы разделить результат функции FileExpand на имя дисковода, имя каталогов и имя файла можно использовать функцию FileSplit.

Смотри также

Пример

Язык:
Русский
English


 { Пример программы для функции FileExpand }

uses WinDos;

const MyFile : PChar = 'TEST.FIL';

var
  Where : PChar;

begin
 GetMem(Where, 80);
  FileExpand(Where, MyFile);
 WriteLn(MyFile, ' создан в текущей директории. Полное имя: ', Where);
end.
Тэги: FileExpand
| G+
Код для вставки: :: :: :: ::
Поделиться: // //