wie Localized Pathname auslesen?

[himitsu]

so, hier erstmal meine Methode: sie ließt den lokalisierten Namen eines Verzeichnisses aus

und sie scheint auch zu funktionieren
(ich hoffe aber, daß hier jetzt auch immernoch alles geht, nachdem ich mein UTF8 nach String geändert hab
und die Version im SSF zeigt auch "defekte" Namen an, wärend diese hier nach Windowsstandard nur korrekte Angaben liefert)

Delphi-Quellcode:

Function ReadIniString(Const FileName, Section, Ident: String): String;
  Var H:   THandle;
    S, S2: String;
    i, i2: Integer;

  Begin
    Result := '';
    SetLength(S, 1016);
    SetLength(S, GetPrivateProfileString(PChar(Section), PChar(Ident),
      nil, PChar(S), Length(S) + 1, PChar(FileName)));
    i := Pos(',', S);
    If (S <> '') Then Begin
      If (S[1] = '@') and (i > 0) and TryStrToInt(Copy(S, i + 1, 99), i2) and (i2 < 0) Then Begin
        S := Copy(S, 2, i - 2);
        SetLength(S2, 1016);
        SetLength(S2, ExpandEnvironmentStrings(PChar(S), PChar(S2), Length(S2) + 1) - 1);
        H := GetModuleHandle(PChar(S2));
        If H = 0 Then Begin
          H := LoadLibraryEx(PChar(S2), 0, LOAD_LIBRARY_AS_DATAFILE);
          i := 0;
        End;
        If H <> 0 Then Begin
          S := '';
          SetLength(Result, 1016);
          SetLength(Result, LoadString(H, -i2, PChar(Result), Length(Result) + 1));
          If i = 0 Then FreeLibrary(H);
        End;
      End;
    End;
  End;



// Achtung Pseudocode-Variablen:
If Directory.Attributes and (FILE_ATTRIBUTE_READONLY or FILE_ATTRIBUTE_SYSTEM) <> 0 Then 
  LocalizedName := ReadIniString(Directory + '\Desktop.ini', '.ShellClassInfo', 'LocalizedResourceName');

soooo, jetzt müßte gleich das JVCL geladen sein und dann mal sehn, ob ich da was Schöneres finde