Правила форума
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 }
const MyFile : PChar = 'TEST.FIL';
var
Where : PChar;
begin
GetMem(Where, 80);
FileExpand(Where, MyFile);
WriteLn(MyFile, ' создан в текущей директории. Полное имя: ', Where);
end.
::
::
::
