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;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

        If Not DirectoryExists(path) Then
        Begin
            If Not CreateDirectory(PChar(path), Nil) Then
            Begin
                MessageBox(Form1.Handle, PChar('Auf "' + path + '" konnte nicht zugegriffen werden. Nachricht:'#13#10 +
                    'Ich weis leider nicht, warum. (provisorische Lösung ;) )'), '"Speicherpfad wählen"', mb_OK);
                closeNow := True;
                close;
            End;
{...}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Function ErrorIDtoString(errID: Cardinal): String;
Var
    p: PChar;

Const
    FormatControl = (FORMAT_MESSAGE_ALLOCATE_BUFFER Or
        FORMAT_MESSAGE_IGNORE_INSERTS Or
        FORMAT_MESSAGE_FROM_SYSTEM);
Begin
    p := '';
    If FormatMessage(FormatControl, Nil, errID, 0, @p, 0, Nil) <> 0 Then
        Result := String(p)
    Else
        Result := 'Unbekannter Fehler!';
End;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

    isXP := (Win32Platform = VER_PLATFORM_WIN32_NT) And (Win32MajorVersion >= 5);
    URLs := TStringList.Create;
    If isXP Then
    Begin //XP oder höher
        path := GetSpecialFolder(CSIDL_APPDATA) + '\FULP Saved Data\'; //<-- hier sollte der Programmname stehen.
        If Not DirectoryExists(path) Then
        Begin
            If Not CreateDirectory(PChar(path), Nil) Then
            Begin //Anwendungsdatenverzeichnis vorhanden, Ordner erstellen Funktioniert nicht! Terminierung.
                MessageBox(Form1.Handle, PChar('Auf "' + path + '" konnte nicht zugegriffen werden. Nachricht:'#13#10 +
                    ErrorIDtoString(GetLastError)), '"Speicherpfad wählen"', mb_OK);
                closeNow := True;
                close;
            End;
        End;
    End
    Else //Kein XP oder höher
        path := ExtractFilePath(ParamStr(0));                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function IsExeInProgramSubDir: Boolean;
var p1: String;
begin
    result := false;
    p1 := IncludeTrailingPathDelimiter(GetEnvironmentVariable('ProgramFiles'));
    if AnsiStartsText(p1, ParamStr(0)) then
        result := true
    else
    begin
        p1 := GetEnvironmentVariable('ProgramW6432');
        if p1 <> '' then
            result := AnsiStartsText(IncludeTrailingPathDelimiter(p1), ParamStr(0));
    end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

function SpecialDirectory(const iID: Integer): string;
var aPath  : array[0..MAX_PATH] of Char;
    pilTemp: PItemIDList;
begin
   try
      if SHGetSpecialFolderLocation(0, iID, pilTemp)=S_OK then begin
         if SHGetPathFromIDList(pilTemp, aPath) then begin
            Result := string(aPath);
         end else Result := '';
         CoTaskMemFree(pilTemp);
      end else Result := '';
   except
      Result := '';
   end;
end;

function GetConfigPath: String;
  var AppDir: String;
begin
  AppDir := SpecialDirectory(CSIDL_APPDATA)+'\DeinProgrammName';
  if DirectoryExists(AppDir) = false then mkdir(AppDir);
    result := AppDir+'\';
end;