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...

zusammenfalten · markieren

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;

Guten Abend,

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

Grüße
Klaus

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

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;

Wieder was neues gelernt

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