Langen Pfadnamen ermitteln?

[MisterSonic]

Hallo,

ich hoffe ich Poste hier im richtigen Bereich .... wenn nicht... verschiebt's einfach Gnadenlos )

Ich lese auf dem Weg die TEMP-Variable aus
SysUtils.GetEnvironmentVariable('temp'); hier erhalte ich "C:\DOKUME~1\......" zurück, ich würde das gern in den langen Namen umwandeln lassen ...also "C:\Dokumente und Einstellungen\......"

hab hier schon mal noch "Dateiname" und "langer Dateiname" gesucht aber nichts brauchbares gefunden. Hoffe ihr könnt mir helfen.

MfG patrick.

[DeddyH]

Statt umständlich den langen Pfadnamen zusammenzusuchen könntest Du doch auch auf GetTempPath zurückgreifen, oder?

[Luckie]

Zitat von MisterSonic:

hab hier schon mal noch "Dateiname" und "langer Dateiname" gesucht aber nichts brauchbares gefunden. Hoffe ihr könnt mir helfen.

Hm, und warum finde ich sofort was brauchbares? Mit Hilfe der Suche nach [dp]lamge dateiname[7dp] hab eich das gefunden: http://www.delphipraxis.net/internal...=630991#630991 Nun, und wie heißt wohl die gegenteilige Funktion?

[DeddyH]

Zitat von Luckie:

Nun, und wie heißt wohl die gegenteilige Funktion?

Das wüsste ich auch gern. Ich hab mir vor Jahren damit beholfen, den ganzen Pfad zu zerlegen, das jeweilige Verzeichnis zu suchen und dann aus FindData den langen Namen zu ermitteln.

[Luckie]

Zitat von DeddyH:

Zitat von Luckie:

Nun, und wie heißt wohl die gegenteilige Funktion?

Das wüsste ich auch gern.

Hmpf. GetLongPathname

[DeddyH]

Kennt meine Hilfe noch gar nicht.
[edit] Geht ab Win98. Und ich hab mir diese Mühe gemacht [/edit]

[MisterSonic]

...also steht in meiner Hilfe auch nich .... welche Unit muss ich denn einbinden damit das funzt...... ?

lg Patrick.

[smallsmoker]

guck mal hier vorbei !

p.s.: ach und hier

[Luckie]

Ich habe es doch schon extra verlinkt. Natürlich steht es nicht in der Delphihilfe, es ist ja auch eine Windows Funktion. Und wenn sie in der Windows.pas noch nicht deklariert ist, muss man das selber nachholen.

[RWarnecke]

Dieses wäre auch noch eine Variante : (ist nicht von mir !!)

Delphi-Quellcode:

(* ---------------------------------------------
   Convert short DOS-style path to long path
   --
   Required units: ShlObj, ActiveX
--------------------------------------------- *)

function short_to_long_Path(ShortPathName : String) : String;
var
   PIDL: PItemIDList;
   Desktop: IShellFolder;
   WidePathName: WideString;
   AnsiPathName: AnsiString;
begin
     Result := ShortPathName;

     if Succeeded(SHGetDesktopFolder(Desktop)) then
     begin
          WidePathName := ShortPathName;
          if Succeeded(Desktop.ParseDisplayName(0, nil, PWideChar(WidePathName), ULONG(nil^), PIDL, ULONG(nil^))) then
          begin
               try
                  SetLength(AnsiPathName, MAX_PATH);
                  SHGetPathFromIDList(PIDL, PChar(AnsiPathName));
                  Result := PChar(AnsiPathName);
               finally
                      CoTaskMemFree(PIDL);
               end;
          end;
     end;
end;