Registriert seit: 28. Apr 2008
1.717 Beiträge
FreePascal / Lazarus
|
Re: In .ini ohne Adminrechte speichern?
26. Mär 2009, 22:19
Zitat von mkinzler:
Nein, weil ein out-Parameter verwendet wird.
Delphi-Quellcode:
if GetUserdataPath(dir) then
Ini := TIniFile.Create(dir + ' \Ininame.ini');
Also so?
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var ini: TIniFile;
dir: String;
begin
if GetUserdataPath(dir) then
begin
Ini := TIniFile.Create(dir + '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 else ???? //eine Fehlermeldung einbauen und fertig? Oder Programm schließen? Sonst kriegt man es nicht zu
end;
|
|
Zitat
|