Текущий архив: 2004.08.22;
Скачать: 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 вся ветка

Текущий архив: 2004.08.22;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.046 c