%AppData% verwenden oder Pfad ermitteln

[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