Модуль DOS

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

Объявление:

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.

Пример:

Var Where: PChar;