In .ini ohne Adminrechte speichern?

[DeddyH]

Schau Dir die Konstanten in dem verlinkten Artikel nochmal genau an.

[mkinzler]

Statt dem Verzeichnis de Exe (Application.ExeName bzw. ParamStr(0) halt Special Folder einsetzen
http://www.delphipraxis.net/internal...t.php?t=123453

[Meflin]

Zitat:

Zitat von Luckie

Dann aber viel Spass, wenn mehrere Benutzer das Programm benutzen.

Was haben mehrere Benutzer damit zu tun? Es soll durchaus auch Einstellungen geben, die für alle Benutzer gleich sien sollen :gruebel: Ob die jetzt in ProgramData oder in einer extra berechtigten Datei im Programmverzeichnis gespeichert werden ist doch total egal.

[AlexII]

Etwa so? :gruebel:

Delphi-Quellcode:

function GetSpecialFolder(Folder: Integer): String;
begin
  SetLength(Result,MAX_PATH);
  If SHGetSpecialFolderPath(0, PChar(Result), Folder, false)
    then SetLength(Result,StrLen(PChar(Result)))
    else Result:='';
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var ini: TIniFile;
    dir: String;
begin
Ini := TIniFile.Create(GetSpecialFolder(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;

[mkinzler]

Nein, da di Typen nicht stimmen, zudem solltest du die Beiträge/Tutorials, die dir hier gepostet werden richtig durchlesen

[AlexII]

Und wie kann ich das Speicher in die .ini umgehen falls User keine Rechte zum speichern hat? Werde dann auf das Speichern verzichten, Hauptsache man kann das Programm schließen.

Geht das so ähnlich wie folg:

Delphi-Quellcode:

Speichern
if ok then
begin
Gespeichert
Programm schließen
end else 
    begin
    Nicht gespeichert, da keine Rechte 
    Programm schließen
    end;

[mkinzler]

Wenn du einen passenden Pfad wählst, hat der User auch Schreibrechte.

[AlexII]

Zitat:

Zitat von DeddyH

Ich vermute einfach mal, dass Du die Ini ungefähr so erzeugst:

Delphi-Quellcode:

Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Ininame.ini');

Versuch es also mal mit einem anderen Verzeichnis.

Delphi-Quellcode:

uses SHFolder;

function GetUserdataPath(out sPath: string): Boolean;
begin
  SetLength(sPath,MAX_PATH);
  SHGetFolderPath(0,CSIDL_APPDATA,0,0,PAnsiChar(sPath));
  SetLength(sPath,StrLen(PAnsiChar(sPath)));
  Result := Length(sPath) > 0;
  if Result then 
    sPath := IncludeTrailingPathDelimiter(sPath);
end;

Etwa so:

Delphi-Quellcode:

var dir String;

Ini := TIniFile.Create(ExtractFilePath(GetUserdataPath(dir)) + 'Ininame.ini');

[mkinzler]

Nein, weil ein out-Parameter verwendet wird.

Delphi-Quellcode:

if GetUserdataPath(dir) then
    Ini := TIniFile.Create(dir + ' \Ininame.ini');

[AlexII]

Zitat:

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;