Korrekt Fehler bei Zugriff auf Registry abfangen

[teebee]

Ich würde es so machen, dass ich alles in eine Funktion packe, die mir als Rückgabewert nur ok oder nicht zurückgibt. Der Aufrufer kann dann entscheiden, was er mit dem Ergebnis anfängt. Darüber, ob ein leerer Except-Abschnitt guter Stil ist oder nicht, kann man sicher diskutieren (wenn man will...)

Delphi-Quellcode:

Function SchreibeIrgendetwasInRegistry: Boolean;
Var Reg: TRegistry;
Begin
  Result := False;
  Reg := TRegistry.Create;
  Try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    If Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True) Then
    Begin
      Try
        Try
         Reg.WriteString('TempCleaner','"' + ParamStr(0) + '" ' + ParamStr(1) + ' "' + ParamStr(2) + '"');
         Result := True; // hierhin kommen wir nur, wenn alles OK war
        Except
        End;
      Finally
        Reg.CloseKey;
      End;
    End;
  Finally
    Reg.Free;
  End;
End;