Скачать: CL | DM;

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

← →
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

---

← →
DVM ©   (2004-07-12 19:48) [3]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c