Info bei Start Programm gerufen --> Fehler wenn nicht da

[Aurelius]

Hallo DP-Gemeinde

Erstmal Sorry für den merkwürdigen Titel, mir ist keine bessere Formulierung eingefallen

Bei dem Start meines Programms wird eine Info aus der Reg gelesen. Wenn die entsprechende Info nun net da ist (z.B. beim ersten Start des Programms) gibt es eine Fehlermeldung, logisch.

Wie kann ich das jetzt umgehen? Diese Prozedur wird in FormCreate gerufen...

Delphi-Quellcode:

procedure gucken;
var a : integer;
    Reg : TRegistry;
begin
  a := 0;
  Reg := TRegistry.Create;
    try
      Reg.Rootkey:=HKEY_CURRENT_USER;
      Reg.OpenKey('Software\Shutdown',True);
      a:= Reg.ReadInteger('Autostart');
      Reg.CloseKey;
    finally
      Reg.Free;
    end;
  if a = 1 then Form1.Checkbox1.Checked := True else Form1.Checkbox1.Checked := False;
end;

[Klaus01]

Guten Abend,

Du könntest mit KeyExists überprüfen, ob denn der Key da ist.

Grüße
Klaus

[Aurelius]

NAch so nem Befehl hab ich gesucht, danke :yes:

[Helmi]

Hallo,

auch wenn es mit diesem Thema selbst nichts zu tun hat, aber diese Zeile:

if a = 1 then Form1.Checkbox1.Checked := True else Form1.Checkbox1.Checked := False; kann man wesentlich einfacher schreiben:

Form1.Checkbox1.Checked := a = 1;

[Aurelius]

Wieder was neues gelernt

[Luckie]

Und wenn man mit WrtieBoolean und ReadBollean arbeitet spart man sich auch das.