Fórum Como Abreviar nome de Diretorio (com o ~1) , tipo o MS-DOS ? #163534

function ExtractLongPathName(const PathName: string): string;
{ func to expand a Win3.1 style path name to a 32-bit Windows naming convention. }
{ If file doesn´t exist, func will return an empty string.                       }
var
  LastSlash, PathPtr: PChar;

  function ExtractLongFileName(const FileName: string): string;
  var
    Info: TSHFileInfo;
  begin
    if SHGetFileInfo(PChar(FileName), 0, Info, Sizeof(Info), SHGFI_DISPLAYNAME) <> 0 then
      Result := string(Info.szDisplayName)
    else 
      Result := FileName;
  end;

begin
  Result := ´´;
  PathPtr := PChar(PathName);
  LastSlash := StrRScan(PathPtr, ´\´);
  while LastSlash <> nil do
    begin
      Result := ´\´ + ExtractLongFileName(PathPtr) + Result;
      if LastSlash <> nil then
        begin
          LastSlash^ := #0;
          LastSlash := StrRScan(PathPtr, ´\´);
        end;
    end; 
  Result := PathPtr + Result;
end;