1:
2:
3:
4:
5:
6:

if AnsiLowerCase(ExtractFileName(Application.ExeName)) = 'blabla.exe' then
  SavePath := ExtractFilePath(Application.ExeName)
else
  // Dateiname z.B. 'blablaXP.exe'
  SavePath := GetShellFolder(CSIDL_APPDATA) + {mein_Subdir_für_dieses_Programm};
  // GetShellfolder ist iirc von Luckie, Forensuche sollte das zutage fördern					

1:
2:
3:
4:
5:

if WindowsVersion >= NT then
  SavePath := GetShellFolder(CSIDL_APPDATA) + {mein_Subdir_für_dieses_Programm}
else
  // Win 95/98/ME, d.h. Schreibrechte sollten eigentlich da sein
  SavePath := ExtractFilePath(Application.ExeName)					

1:
2:
3:
4:

if (Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion >= 5) then
  // 2000/XP/Vista
else
  // nicht 2000/XP/Vista					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

    isXP := (Win32Platform = VER_PLATFORM_WIN32_NT) And (Win32MajorVersion >= 5);

    If isXP Then //der Übersichtlichkeit halber eine Variable
    Begin        //Ich mag kurze und prägnante If-Abfragen.
        path := GetSpecialFolder(CSIDL_APPDATA) + '\FULP Saved Data\'; //Funktion ist in einem der Links
        If Not FileExists(path + 'urls.txt') Then //Beste Möglichkeit um zu bestimmen, ob der Pfad
        Begin                                     //im AppData-Verzeichnis schon vorhanden ist (?)
            MkDir(path);
            URLs.Add('http://www.Delphi-Forum.de'); //Mitgelieferte Einträge
            URLs.Add('http://www.christian-stelzmann.de/index_tutorials_crashkurs.html');
            URLs.Add('http://www.google.de/');

            LB.Items.Add('Delphi-Forum');  //LB = ListBox
            LB.Items.Add('Delphi Crashkurs, Christian S.');
            LB.Items.Add('Google');
        End;
    End
    Else
        path := ExtractFilePath(ParamStr(0));

    urlsFile := path + 'urls.txt';
    LabelFile := path + 'labels.txt';

    Try //falls aus irgendeinem Grund ein Fehler auftritt, abfangen
        ini := TIniFile.Create(path + 'config.ini');

        If FileExists(urlsFile) Then
            URLs.LoadFromFile(urlsFile)
        Else
            URLs.SaveToFile(urlsFile);

        If FileExists(LabelFile) Then
            LB.Items.LoadFromFile(LabelFile)
        Else
            URLs.SaveToFile(LabelFile);
    Except
        On E: Exception Do
        Begin
            MessageBox(Form1.Handle, PChar('Auf "' + path + '" konnte nicht zugegriffen werden. Nachricht:'#13#10 +
                E.Message), '"Speicherpfad wählen"', mb_OK);
            closeNow := True;
            close;
        End;
    End;