Immer noch schlecht:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
reg: TRegistry;
testab, hallo: string;
begin
hallo:='Hallo';
reg:=TRegistry.Create;
try
reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKeyReadOnly('Software\test') then
begin
testab:=reg.ReadString('testab');
reg.CloseKey;
end
else
ShowMessage('Schlüssel konnte nicht geöffnet werden');
finally
FreeAndNil(reg);
end;
if testab = hallo then CheckBox1.Checked:=true;
end;
Und warum wird kein Boolean gespeichert in der Registry, um die Checkbox gleich damit zu setzten?