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;