Короткое имя файла в длинное и наоборот, сокращённое имя файла
Следующие три функции помогут преобразовать длинные имена файлов в коротки и наоборот. Функция Mince служит для отображения полного имени файла, включая путь.
{=========================================================}Function Mince(PathToMince: String; InSpace: Integer): String;
{=========================================================}// "C:\Program Files\Delphi\DDrop\TargetDemo\main.pas" // "C:\Program Files\..\main.pas" Var
sl: TStringList;
sHelp, sFile: String;
iPos: Integer;
Begin
sHelp := PathToMince;
iPos := Pos('\', sHelp);
If iPos = 0 ThenBegin
Result := PathToMince;
EndElseBegin
sl := TStringList.Create;
// Decode string While iPos <> 0 DoBegin
sl.Add(Copy(sHelp, 1, (iPos - 1)));
sHelp := Copy(sHelp, (iPos + 1), Length(sHelp));
iPos := Pos('\', sHelp);
End;
If sHelp <> '' ThenBegin
sl.Add(sHelp);
End;
// Encode string
sFile := sl[sl.Count - 1];
sl.Delete(sl.Count - 1);
Result := '';
While (Length(Result + sFile) < InSpace) And (sl.Count <> 0) DoBegin
Result := Result + sl[0] + '\';
sl.Delete(0);
End;
If sl.Count = 0 ThenBegin
Result := Result + sFile;
EndElseBegin
Result := Result + '..\' + sFile;
End;
sl.Free;
End;
End;
{===================================================}Function ShortFileName(Const FileName: String): String;
{===================================================}Var
aTmp: Array[0..255] Of Char;
BeginIfNot FileExists(FileName) ThenBegin
Result := '';
EndElseBeginIf GetShortPathName(PChar (FileName), aTmp, Sizeof (aTmp) - 1) = 0 ThenBegin
Result:= FileName;
EndElseBegin
Result:= StrPas (aTmp);
End;
End;
End;
{==============================================}Function LongFileName(ShortName: String): String;
{==============================================}Var
SR: TSearchRec;
Begin
Result := '';
If (pos ('\\', ShortName) + pos ('*', ShortName) +
pos ('?', ShortName) <> 0) OrNot FileExists(ShortName) ThenBegin{ ignore NetBIOS name, joker chars and invalid file names }
Exit;
End;
While FindFirst(ShortName, faAnyFile, SR) = 0 DoBegin{ next part as prefix }
Result := '\' + SR.Name + Result;
SysUtils.FindClose(SR); { the SysUtils, not the WinProcs procedure! }{ directory up (cut before '\') }
ShortName := ExtractFileDir (ShortName);
If length (ShortName) <= 2 ThenBegin
Break; { ShortName contains drive letter followed by ':' }End;
End;
Result := ExtractFileDrive (ShortName) + Result;
end;
Статья Короткое имя файла в длинное и наоборот, сокращённое имя файла раздела Файловая система Файлы может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.