hm...
Ich hab mich da noch mal rangesetzt und das nochmal neu geschrieben. Rausgekommen ist folgendes:
Delphi-Quellcode:
procedure TMainForm.SaveSettings(Sender: TObject;
var Action: TCloseAction);
begin
if
CBxSaveSettings.Checked
then
begin
regist := TRegistry.Create;
try
regist.RootKey := HKEY_CURRENT_USER;
regist.OpenKey('Software\flomei\pumpensteuerung\1.0', False);
regist.WriteInteger('Filled', Counter.Value);
regist.WriteBool('OnTop an', OnTopChecked);
regist.WriteBool('SaveSettings an', SaveSettingsChecked);
regist.CloseKey;
regist.Free;
except
MessageDlg('Es existieren noch keine Registrierungsschlüssel' +#10#13
+'Es werden Neue angelegt!', mtInformation, [mbOK], 0);
regist.RootKey := HKEY_CURRENT_USER;
regist.CreateKey('Software\flomei\pumpensteuerung\1.0');
regist.OpenKey('Software\flomei\pumpensteuerung\1.0', False);
regist.WriteInteger('Filled', Counter.Value);
regist.WriteBool('OnTop an', OnTopChecked);
regist.WriteBool('SaveSettings an', SaveSettingsChecked);
regist.CloseKey;
regist.Free;
end;
end;
end;
Mein Programm beende ich ganz einfach mit:
Delphi-Quellcode:
procedure TMainForm.ImgQuitClick(Sender: TObject);
begin
Close;
end;
Liegt im Beenden vielleicht der Fehler? Ich bin echt nen noob auf dem Gebiet...
Bin für jede Hilfe dankbar!
MfG Florian
[EDIT] Mir ist klar, dass man dies:
Delphi-Quellcode:
regist.CreateKey('Software\flomei\pumpensteuerung\1.0');
regist.OpenKey('Software\flomei\pumpensteuerung\1.0', False);
auch einfacher machen könnte wenn man True nimmt aber ich find es eleganter
[/EDIT]