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;