Problem mit lesen aus einer INI

[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