Einzelnen Beitrag anzeigen

Benutzerbild von Aurelius
Aurelius

Registriert seit: 29. Jan 2007
Ort: Erfurt
753 Beiträge
 
Delphi 7 Personal
 
#1

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

  Alt 28. Jul 2007, 21:26
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;
Jonas
  Mit Zitat antworten Zitat