In .ini ohne Adminrechte speichern?

[DeddyH]

Ich vermute einfach mal, dass Du die Ini ungefähr so erzeugst: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;

[Meflin]

Zitat von AlexII:

Und wie packe ich das ins User-Verzeichnis?

Steht doch ausführlichst in dem Link aus Beitrag #3

[AlexII]

Ich kann doch einfach das Programm für alle Benutzer installieren, ist doch viel leichter und man brauch das Programm nicht umschreiben?

Aber wie mache ich das im Inno Setup Compiler, kann mir jemand sagen?

[Meflin]

Zitat von AlexII:

Ich kann doch einfach das Programm für alle Benutzer installieren, ist doch viel leichter und man brauch das Programm nicht umschreiben?
Aber wie mache ich das im Inno Setup Compiler, kann mir jemand sagen?

Quatsch. Dann wirds eher noch komplizierter, weil jeder Benutzer seinen eigene Konfigurationsdatei braucht. An deinem Problem löst das rein garnichts!

[AlexII]

Zitat von Meflin:

Quatsch. Dann wirds eher noch komplizierter, weil jeder Benutzer seinen eigene Konfigurationsdatei braucht. An deinem Problem löst das rein garnichts!

Wieso nicht? Hab sowas schon mal gesehen. Also alles ok, denk nicht so kompliziert. Sag mir lieber wie der Code im Inno dafür lautet?

[Meflin]

Zitat von AlexII:

Wieso nicht? Hab sowas schon mal gesehen. Also alles ok, denk nicht so kompliziert. Sag mir lieber wie der Code im Inno dafür lautet?

Was verleitet dich zu der Vermutung, das würde dein Problem lösen? Hat dein Programm deswegen mehr Rechte? Speichert dein Programm seine Einstellungen deswegen in einem anderen Verzeichnis?

Die Antwort ist: Nein.

[AlexII]

Post #3 bleibt dann die einzige Lösung?

Ich komme mit dieser aber nicht klar, gibt's vllt andere Lösungen?

[mkinzler]

Was verstehst du den genau nicht?

[AlexII]

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...

[Luckie]

Zitat von Apollonius:

Wenn man es richtig macht, sollte das eigentlich keine Sicherheitslücke sein.

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