Also ich hab das bei mir wie folgt:
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var ini :TIniFile;
begin
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini');
try
ComboBox1.ItemIndex := Ini.ReadInteger('Default', 'Channel', 0);
TrackBar1.Position := Ini.ReadInteger('Default', 'Volume', 10);
cbDirectConnection.Checked := Ini.ReadBool('Default', 'Proxy', True);
ed_ProxyServer.Text := Ini.ReadString('Default', 'ProxyIP', '');
finally
ini.free;
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
ini: TIniFile;
begin
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini');
try
Ini.WriteInteger('Default', 'Channel', ComboBox1.ItemIndex);
Ini.WriteInteger('Default', 'Volume', TrackBar1.Position);
Ini.WriteBool('Default', 'Proxy', cbDirectConnection.Checked);
Ini.WriteString('Default', 'ProxyIP', ed_ProxyServer.Text);
finally
Ini.Free;
end;
Action:=caFree;
end;
end;
Wo und was soll ich aus dieser Lösung hier einbauen? Und außerdem ist da im Code irgendwas falsch. Abgespeicher wird die Datei in
C:\Dokumente und Einstellungen\Alex\Lokale Einstellungen\Anwendungsdaten\Sebastian Jänicke\AppDir Testprojekt
ausgelesen aber in
C:\Dokumente und Einstellungen\Alex\Lokale Einstellungen\Anwendungsdaten
Diese Lösung muss man noch korrigieren und wenn ich sie nicht verstehe und nicht korrigieren kann, kann auch nicht weiter kommen.
Verzeiht, ich gebe mir richtig mühe...