Desktop.ini datei öffnen

[xZise]

Hi Dp,
wie kann ich mit Delphi Unicode Inidateien öffnen?

MfG
xZise

[Garfield]

Du kannst sie in eine TTNTStringList oder WideStringList (Unit WideStrings) laden.

Oder die Unit TIniFiles nehmen, unter anderem Namen speichern, die Class TIniFile entfernen und den Rest von Ansi auf Wide ändern. Wobei die TStringlist am besten mit TTNTStringlist ersetzt wird. Bei WideStringList muss die zu öffnende Datei sonst ganz sicher Unicode sein.

[xZise]

Hi,
ich habe mir mal das komplette TNTPack gedownloadet und installiert.
Allerdings habe ich nun versucht die "TTNTIniFile" zu verwenden, aber leider funktioniert das irgendwie nicht:

Delphi-Quellcode:

with TTntIniFile.Create(FPath + sr.Name + '\Desktop.ini') do
  try
    pathbuffer := ReadString('.ShellClassInfo', 'InfoFile', '');
    if Length(pathbuffer) >= 1 then
    begin
      if pathbuffer[1] = '%' then
      begin
        pathbuffer := Copy(pathbuffer, 2, Length(pathbuffer) - 1);
        idx := Pos('%', pathbuffer);
        pathbuffer := Copy(pathbuffer, 1, idx - 1);
        pathbuffer := GetEnvironmentVariable(Copy(pathbuffer, 1, idx - 1)) + Copy(pathbuffer, idx + 1, Length(pathbuffer) - idx);
      end;
      idx := 0;
    end else
      idx := 0;
  finally
    Free;
  end;

Aber ich bekomme immer nur einen Leerstring !
Obwohl die Datei existiert:

Zitat:

[.ShellClassInfo]
IconFile=%SystemRoot%\system32\SHELL32.dll
IconIndex=85

[gsh]

Zitat von xZise:

pathbuffer := ReadString('.ShellClassInfo', 'InfoFile', ''); //<-- hier

Zitat:

[.ShellClassInfo]
IconFile=%SystemRoot%\system32\SHELL32.dll
IconIndex=85

hab kurz drauf geschaut ... müsste es nicht IconFile anstatt InfoFile heißen?

[Garfield]

Zitat von gsh:

hab kurz drauf geschaut ... müsste es nicht IconFile anstatt InfoFile heißen?

Das dürfte es sein.

Das TTNTIniFile hatte sich bei mir mit DXGettext gebissen, weshalb ich es nicht verwendet habe.