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