Problem mit lesen aus einer INI

[ehem. Benutzer]

hat sich erledigt, ich hab den fehler gefunden
wenn man schon kein nein reinschreibt kann es auch kein nein anzeigen


MfG

[fisherman_b]

Wer, zum Henker, ist david... *g*

Gruss,

Bernhard

[ehem. Benutzer]

Zitat von mirage228:

Hi,

ich hab dir das ganze mal optimiert. So solltest Du es immer schreiben, dann behälst Du auch den Überblick

Delphi-Quellcode:

var
  ini: TIniFile;
  a: Boolean;
  Reg: TRegistry;
begin
  start1.checked := not start1.checked;
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini');
  try
    Ini.WriteBool('Drive O+C', 'Start mit Windows', Start1.Checked);
  finally
    Ini.Free;
  end;
  ini := TIniFile.Create('config.ini'); // ExtractFilePath(ParamStr(0)) ?
  Reg := TRegistry.Create;
  try
    A := Ini.ReadBool('Drive O+C','Start mit Windows', false);
    Reg.RootKey := HKEY_CURRENT_USER;
    if (not Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',
      True)) then Exit;
    if A then
      R.WriteString('Drive O+C', ParamStr(0)) else
    R.DeleteValue('Drive O+C');
    Reg.CloseKey;
  finally
    Ini.Free;
    Reg.Free;
  end;
end;

Vielleicht hilft Dir das ganze ja weiter


mfG
mirage228

Irgendwie wird wenn ich deins ausprobiere nichts in die Registry geschrieben.


MfG

[mirage228]

Hi,

Ich habe deinen Code auch dahingehen optimiert, dass nicht mehr "manuell" die Strings "true" oder "false" gespeichert, sondern das ganze automatisch mit WriteBool von TIniFile erledigt wird.
Eventuell ist das ReadBool() Ergebnis nicht korrekt.

Es könnte aber auch hierran liegen:
ini := TIniFile.Create('config.ini'); // ExtractFilePath(ParamStr(0)) ? Ich habe schon als Kommentar ergänzt, dass evtl. die Pfadangabe fehlt...

Führe den kurzen Abschnitt dochmal im Einzelschritt aus und schau was für Werte die einzelnen Variablen haben (Strg + Alt + L, wenn das Programm angehalten ist, um den Inhalt aller lokaler Variablen zu sehen)

mfG
mirage228

[malo]

Zitat von fisherman_b:

Wer, zum Henker, ist david... *g*

Gruss,

Bernhard

Mirage228. Manche Leute sprechen andere hier mit den echten Namen an

[ehem. Benutzer]

Ich habs, es muss so aussehen:

Delphi-Quellcode:

...
end;
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini'); //du lagst richtig, ich musste es nur noch ein wenig verändern =)
  Reg := TRegistry.Create;
  try
    A := Ini.ReadBool('Drive O+C','Start mit Windows', false);
...

Danke nochmal

MfG