Einzelnen Beitrag anzeigen

AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#19

Re: In .ini ohne Adminrechte speichern?

  Alt 26. Mär 2009, 20:02
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...
  Mit Zitat antworten Zitat