Einzelnen Beitrag anzeigen

Benutzerbild von Trouble_Maker
Trouble_Maker

Registriert seit: 30. Jan 2003
244 Beiträge
 
Delphi 6 Personal
 
#1

nochmal Wert aus der Registry auslesen

  Alt 13. Jun 2003, 18:40
Hiho...
ich möchte einen Wert aus der Registry auslesen:
Bei meinem Programm habe ich 3 Design eingebaut... es soll das selbe design bei start des Programms aufgerufen werden wie es vorher eingestellt wurde.
Hier mein formclose:
Code:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var regist: TRegistry;
begin
  regist:=TRegistry.Create;
  regist.RootKey:=HKEY_CURRENT_USER;
  regist.OpenKey('Software\Trouble_Maker\Secure\Design', true);

  if RadioButton1.checked = true then
     regist.WriteInteger('Design', 1);

  if RadioButton2.checked = true then
     regist.WriteInteger('Design', 2);

   if RadioButton3.checked = true then
     regist.WriteInteger('Design', 3);

  regist.free;
end;
so ... soweit klappt das... jetzt möcht ich, dass wenn das Programm gestartet wird, also formcreate, den Integer auslesen und dann das Design wieder aufrufen...
wie mache ich das mit einer if-Funktion

habe sowas wie hier probier:
Code:
  //aus Registry auslesen:
  regist:=TRegistry.Create;
  regist.RootKey:=HKEY_CURRENT_USER;
    if regist.ReadInteger('Software\Trouble_Maker\Secure\Design',);
    ...
das funktioniert aber nicht...

bitte um Hilfe

Danke
  Mit Zitat antworten Zitat