%AppData% verwenden oder Pfad ermitteln

[Larsi]

hi,
ListBox1.Items.SaveToFile('%APPDATA%' + '\hi.txt'); wie muss ich das machen, dass das geht und der die textdatei auch wirklich erstellt???


MFG Lars W.

[edit=SirThornberry]aussagekräftigeren Titel vergeben - Mfg, SirThornberry[/edit]

[mkinzler]

http://www.delphipraxis.net/internal...special+folder

[Larsi]

das hilft mir jetzt nicht so weiter, da ich in dem thread keine antwort auf meine frage bekommen!

[JonnyGuitar]

der link von mkinzler zeigt doch eine funktion die dir den pfad als string
zurückliefert. den kanst du ja zb in einer variable zwischenlagern(ich nenne sie jetzt mal "pfad").

dann kannst du das ganze so abspeichern:
ListBox1.Items.SaveToFile(pfad + '\hi.txt');
mfg Jonny

[mkinzler]

Warup appdata ist ein special folder

[Deep-Sea]

Eigentlich das gleiche wie von mkinzler schon erwähnt:

http://www.swissdelphicenter.ch/de/showcode.php?id=2277
http://www.swissdelphicenter.ch/de/showcode.php?id=233

[Larsi]

Delphi-Quellcode:

var Pfad: String;
begin
Pfad := '%AppData%';
ListBox1.Items.SaveToFile(pfad + '\hi.txt');
end;

das ist doch so wie dus gesaggt hast oder???
geht aber leider nicht; da kommt ne fehlermedlung!

[SirThornberry]

hast du dir die Links angeschaut? du sollst "%AppData%" vorher per Api-Funktion zu einem Pfad auflösen lassen und dann zusammensetzen. Oder eben nicht mit "%AppData%" sondern mit SHGetSpecialFolderPath und der entsprechenden Constanten für diesen Ordner (für den Fall das die Umgebungsvariable nicht gesetzt ist).

[JonnyGuitar]

nehmen wir mal an du nimmst das erste beispiel von swissdelphicenter.

Delphi-Quellcode:

function GetEnvVarValue(const VarName: string): string;
var
  BufSize: Integer;  // buffer size required for value
begin
  // Get required buffer size (inc. terminal #0)
  BufSize := GetEnvironmentVariable(PChar(VarName), nil, 0);
  if BufSize > 0 then
  begin
    // Read env var value into result string
    SetLength(Result, BufSize - 1);
    GetEnvironmentVariable(PChar(VarName),
      PChar(Result), BufSize);
  end
  else
    // No such environment variable
    Result := '';
end;

dann:

Delphi-Quellcode:

var 
  Pfad: String;
begin
  Pfad := GetEnvVarValue('AppData');
  ListBox1.Items.SaveToFile(pfad + '\hi.txt');
end;

sollte es so gehen.

mfg Jonny

[Edelfix]

Weil ich ewig gesucht hatte. Für alle die über diesen Betrag stolpern:

Ab Delphi XE (soweit mir bekannt). Ganz einfach:

showmessage(GetEnvironmentVariable('AppData')); //Uses System.SysUtils