Функция преобразования имени файла...

← →
BillyJeans (2004-07-12 17:16) [0]

Существует ли функция преобразующая длинные имена файлов и каталогов в короткие (8.3)?

← →
Anatoly Podgoretsky © (2004-07-12 17:22) [1]

Да

← →
rOOse © (2004-07-12 17:22) [2]

WinApi
GetShortPathName

function LongPathToShortPath(const Path: string): string;
var
Required: Integer;
begin
Result := Path;
Required := GetShortPathName(PChar(Path), nil, 0);
if Required <> 0 then
begin
SetLength(Result, Required);
Required := GetShortPathName(PChar(Path), PChar(Result), Required);
if (Required <> 0) and (Required = Length(Result) - 1) then
SetLength(Result, Required)
else
Result := Path;
end;
end;

Функция преобразования имени файла... Найти похожие ветки