%AppData% verwenden oder Pfad ermitteln

[Larsi]

hi,

Delphi-Quellcode:

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:

Delphi-Quellcode:

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

[Der schöne Günther]

Cool, danke.

War mir auch neu.

http://docwiki.embarcadero.com/Libra...onmentVariable

[nahpets]

Zitat:

Zitat von Edelfix (Beitrag 1344617)

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

AppData gibt es seit Windows NT.
Das hab' ich mit Delphi 7 auch "immerschon" so abgefragt.

Laut https://www.delphi-treff.de/tipps-tr...blen-auslesen/ gibt es diese Möglichkeit seit Delphi 6.

Näheres zu AppData und Co: http://www.winfaq.de/faq_html/Conten...?h=tip0328.htm

[dGeek]

Mit ShGetSpecialFolderLocation sieht das so aus:

Delphi-Quellcode:

function getSpecialFolder(const aFolder: Integer): string;
 var
  ItemIDList: PItemIDList;
  hPath: PChar;
  ShellH: IMalloc;
 begin
  if SUCCEEDED(ShGetSpecialFolderLocation(Application.Handle, aFolder, ItemIDList)) then
   begin
    try
     hPath := StrAlloc(MAX_PATH);
     try
      if SHGetPathFromIDList(ItemIDList, hPath) then
       Result := hPath;
     finally
      StrDispose(hPath);
     end;
    finally
     if SHGetMalloc(ShellH) = NOERROR then
      ShellH.Free(ItemIDList);
    end;
   end;
 end;

Den Code habe ich mal vor Jahren irgendwo gefunden, weiß aber nicht mehr woher.

Ich aber auch

Delphi-Quellcode:

GetEnvironmentVariable('AppData');

bevorzugen.

Die erste Variante benötigt auf meinem System bei einer Wiederholung von 100.000 im Durchschnitt 1700ms.
Letztere Variante benötigt mit derselben Schleife im Durchschnitt für 10.000 Durchgänge 33ms.

Niemand wird 100.000 Mal hintereinander diese Funktion aufrufen. Aber jetzt weiß man wenigstens, welche schneller ist :stupid:

[himitsu]

GetEnvironmentVariable (gibt es schon viel länger, wenn man es direkt verwendet)
ExpandEnvironmentStrings (macht das, was man hier eigentlich machen wollte)