Erklären

[sirius]

Delphi-Quellcode:

procedure TfrmConfig.btnCancelClick(Sender: TObject); 
begin 
  Application.Terminate; //Programm beenden (sollte man aber nicht so machen; wer steigt schon mit dem Schleudersitz aus nem Flugzeug aus)
end; 

procedure TfrmConfig.btnSaveClick(Sender: TObject); 
var 
  fn: string; 
  ini: TIniFile; 
begin 
  fn := GetShellFolder(CSIDL_APPDATA) + '\CKAnts\';  //gibt ../Eigene Dateien/Anwendungsdaten zurück und hängt noch CKAnts an
  ForceDirectories(fn);  //Wenn die Verzeichnisse noch nicht existieren, werden sie angelegt
  fn := fn + 'config.xml'; 
  ini := TIniFile.Create(fn);  //Ini-Datei öffnen

  ini.WriteInteger('main', 'fillmode', cbxMode.ItemIndex);  //und ini befüllen (näheres siehe Hilfe)
  ini.WriteInteger('main', 'bgcol', cbxBG.Selected); 
  ini.WriteInteger('main', 'antcol', cbxAnts.Selected); 
  ini.WriteBool('main', 'antrnd', cbRndAnt.Checked); 
  ini.WriteBool('main', 'usescreen', cbScreenshot.Checked); 
  ini.WriteBool('main', 'extonmouse', cbExitOnMouse.Checked); 

  ini.Free; 
  Application.Terminate; //Schleudersitz
end; 

procedure TfrmConfig.cbRndAntClick(Sender: TObject); 
begin 
  cbxAnts.Enabled := not cbRndAnt.Checked; 
end; 

procedure TfrmConfig.cbScreenshotClick(Sender: TObject); 
begin 
  //cbxBG.Enabled := not cbScreenshot.Checked; 
end; 

procedure TfrmConfig.FormCreate(Sender: TObject); 
var 
  fn: string; 
  ini: TIniFile; 
begin 
  //3 Befehle um den TaskbarEintrag zu verstecken (Warum vorher das Fenster verschwinden [SW_Hide] soll, weiß ich nicht)
  ShowWindow( Application.Handle, SW_HIDE ); 
  SetWindowLong( Application.Handle, GWL_EXSTYLE, 
                 GetWindowLong(Application.Handle, GWL_EXSTYLE) or 
                 WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW); 
  ShowWindow( Application.Handle, SW_SHOW ); 
  
  
  //wie oben, nur jetzt aus ini lesen
  fn := GetShellFolder(CSIDL_APPDATA) + '\CKAnts\'; 
  ForceDirectories(fn); 
  fn := fn + 'config.xml'; 
  ini := TIniFile.Create(fn); 

  cbxMode.ItemIndex := ini.ReadInteger('main', 'fillmode', 1); 
  cbxBG.Selected := ini.ReadInteger('main', 'bgcol', clblack); 
  cbxAnts.Selected := ini.ReadInteger('main', 'antcol', clred); 
  cbRndAnt.Checked := ini.ReadBool('main', 'antrnd', False); 
  cbScreenshot.Checked := ini.ReadBool('main', 'usescreen', True); 
  cbExitOnMouse.Checked := ini.ReadBool('main', 'extonmouse', True); 

  ini.Free; 
end; 

end.

Noch mehr Hilfe wäre unangebarcht du hast auch eine Hilfe in Delphi. Die bringt die Sachen schon auf den Punkt.