Korrekt Fehler bei Zugriff auf Registry abfangen

[Christian Seehase]

Moin Wolle,

was an dem Code

Delphi-Quellcode:

begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    Reg.WriteString('TempCleaner','"' + ParamStr(0) + '" ' + ParamStr(1) + ' "' + ParamStr(2) + '"');
    Reg.CloseKey;
  finally
    Reg.Free;
  end;
end;

jeden Fall noch verbesserungswürdig ist:
OpenKey ist eine Funktion, die einem den Erfolg durch ihr Ergebnis mitteilt.
Soll heissen: Wenn OpenKey fehlgeschlagen ist, machen die Ausführung von WriteString und CloseKey keinen Sinn.

Delphi-Quellcode:

begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True) then begin
      try
        Reg.WriteString('TempCleaner','"' + ParamStr(0) + '" ' + ParamStr(1) + ' "' + ParamStr(2) + '"');
      finally
        Reg.CloseKey;
      end;
    end;
  finally
    Reg.Free;
  end;
end;

Der weitere Try/finally-Block (er kann auch das begin/end ersetzen) sichert dann noch das schliessen des Keys ab, falls WriteString fehlschlägt.

[Bernhard Geyer]

Kann es nicht auch sein das einfach nur die durchschlagende Exeption das Problem ist und deshalb anderer Code nicht oder nicht korrekt ausgeführt wird.

Am besten den Code von Chris nehmen und noch ein try ... exept drüber legen um zu verhindern das der restliche Ablauf im Programm gestört wird.

[wolle72]

Hi Chris,

ich hab das jetzt mal so gemacht:

Zitat von Christian Seehase:

Delphi-Quellcode:

begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True) then begin
      try
        Reg.WriteString('TempCleaner','"' + ParamStr(0) + '" ' + ParamStr(1) + ' "' + ParamStr(2) + '"');
      finally
        Reg.CloseKey;
      end;
    end;
  finally
    Reg.Free;
  end;
end;

weil es mir logisch und sinnvoll erscheint. Aber leider kommt die ursprüngliche Fehlermeldung, was bei

Delphi-Quellcode:

begin
    Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    Reg.WriteString('TempCleaner','"' + ParamStr(0) + '" ' + ParamStr(1) + ' "' + ParamStr(2) + '"');
    Reg.CloseKey;
  except
  end;
    Reg.Free;
  end;

nicht der Fall ist.

[teebee]

Die Exception wird wohl durch das WriteString ausgelöst, und da fängst Du ja auch nichts ab. Das müsstest Du noch in ein extra Try...Except einpacken.

Gruß, teebee

[Luckie]

Delphi-Quellcode:

begin 
  Reg := TRegistry.Create; 
  try 
    Reg.RootKey := HKEY_LOCAL_MACHINE; 
    if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True) then
    begin 
      try
        Reg.WriteString('TempCleaner','"' + ParamStr(0) + '" ' + ParamStr(1) + ' "' + ParamStr(2) + '"'); 
        Reg.CloseKey;
      except
        Reg.CloseKey;
        raise Exception.Create(SyserrorMessage(GetLastError)); 
    else
       raise Exception.Create(SyserrorMessage(GetLastError)); 
    end; 
  finally 
    Reg.Free; 
  end; 
end;

So würde ich es machen, glaube ich.

[DeddyH]

Hallo Luckie, da steige ich nicht durch. Wozu gehört denn das else? Und wo ist das end des try-except-Blocks?

[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;

[wolle72]

@teebee

Das scheint soweit prima zu tun Ich hab's jetzt zwar nicht als Funktion integriert, aber datt dürft ja keinen Unterschied machen.

Danke !
Viele Grüsse Wolle

[Luckie]

Zitat von DeddyH:

Hallo Luckie, da steige ich nicht durch. Wozu gehört denn das else? Und wo ist das end des try-except-Blocks?

Jupp, kann sein, dass da die Blöcke nicht ganz passen, weil ich es hier im Beitragseditor getippt habe. Aber das Prinzip sollte klar sein. Das else gehört zu dem if Reg.OpneKey(...).