Модуль 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;