1:
2:
3:

const
  AppDataRootDir = '\Überordner';
  AppDataProjectDir = '\Settings';					

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

procedure TfrmOptionen.FormCreate(Sender: TObject);
var
PathSettings: String;
begin
PathSettings := GetSpecialFolder (CSIDL_Appdata)+ AppDataRootDir + AppDataProjectDir;
ini:=TIniFile.Create(PathSettings+'\Settings.ini');
  try
  cbNewSnippet.Checked := Ini.ReadBool('MainSettings', 'cb1', False);
  cbClipboard.Checked := Ini.ReadBool('MainSettings', 'cb2', True);
  cbStrg.Checked := Ini.ReadBool('MainSettings', 'cb3', False);
  cbMouseUp.Checked := Ini.ReadBool('MainSettings', 'cb4', True);

  finally
  ini.Free ;
  end;

end;					

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

procedure TfrmOptionen.btnSaveclick(Sender: TObject);
var PathSettings: String;
begin

PathSettings := GetSpecialFolder (CSIDL_Appdata)+ AppDataRootDir + AppDataProjectDir;
ini:=TIniFile.Create(PathSettings+'\Settings.ini');

    try
    Ini.WriteBool('MainSettings', 'cb1', cbNewSnippet.Checked);
    Ini.WriteBool('MainSettings', 'cb2', cbClipboard.Checked);
    Ini.WriteBool('MainSettings', 'cb3', cbStrg.Checked);
    Ini.WriteBool('MainSettings', 'cb4', cbMouseUp.Checked);

    finally
    ini.Free;
    end;
end;					

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

if not DirectoryExists(PathSettings) then
  begin
  ForceDirectories(PathSettings);

    if fileexists(PathSettings+'\'+'Settings.ini') = False then
    begin
    AssignFile(f, PathSettings+'\'+'Settings.ini');
    Rewrite(f);
    Write(f, '');
    CloseFile(f);
    end;

  end;