Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#7

Re: einfache Sache (Registry) aber ich kriegs net hin :(

  Alt 27. Sep 2004, 17:56
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?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat