Korrekt Fehler bei Zugriff auf Registry abfangen

[wolle72]

Hi,

um in die Registry zu schreiben habe ich das hier gefunden:

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;

Klappt auch prima. Nur wenn ich (unter Vista) keine Admin-Rechte habe dann hängt sich das Programm auf. Wenn ich aber das "finally" durch ein "except" ersetze klappt alles prima. Dann wird zwar bei den fehlenden Rechten nix gemacht, aber es hängt sich auch nix auf.

Seht ihr ein Problem dabei wenn ich ein "except" verwende ?

Viele Grüssle
Wolle

[sirius]

Ja, weil, wenn alles klappt wird Reg.free nicht aufgerufen.
Du kannst aber um den ganzen Code nocht ein try Except herumlegen, wenn du magst und in dem Except dann entsprechend darauf reagieren. Zum Beispiel, den User informieren,....

[Bernhard Geyer]

Eigentlich nein. Wüßte auch bei TRegistry nicht wie es anders gehen sollte.

Und dein "Problem" ist ab Windows NT vorhanden. Dort wird der Registry-Zugriff per Rechtevergabe geregelt.

[argonix]

Ja. Wenn du finally durch except ersetzt wird das Registryobjekt nur im Falle eines Fehlers gelöscht.
Versuche es mal so:

Delphi-Quellcode:

begin 
    Reg := TRegistry.Create;
//try 
  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; 
 // finally 
    Reg.Free; 
 // end; 
  end;

So müsste das OK sein.

[edit] Sirius war schneller! [/edit]

[Bernhard Geyer]

Zitat:

Zitat von sirius

Ja, weil, wenn alles klappt wird Reg.free nicht aufgerufen.

Lest euch mal etwas in der Online-Hilfe ein. Der Code im Finally-Zweig wird immer abgearbeitet!
Das Konstrukt mit Ressourcenfreigabe im finally ist korrekt!

[semo]

wie wäre es wenn du das problem an der wurzel packst anstatt mögliche folgefehler zu bekämpfen:

Zitat:

Nur wenn ich (unter Vista) keine Admin-Rechte habe dann hängt sich das Programm auf

also gilt es die aktuellen rechte zu ermitteln und dann zu überlegen wie man weiter vorgeht...

[sirius]

Zitat:

Zitat von Bernhard Geyer

Lest euch mal etwas in der Online-Hilfe ein. Der Code im Finally-Zweig wird immer abgearbeitet!
Das Konstrukt mit Ressourcenfreigabe im finally ist korrekt!

Wenn du schon so schlau und überheblich daherkommst:
Les dir bitte mal die Frage durch!

Zitat:

Zitat von wolle72

Wenn ich aber das "finally" durch ein "except" ersetze

[wolle72]

Wenn ich das richtig verstanden habe passen die Ideen von "Sirius" und "argonix" bestens. Denn sie scheinen genau das zu tun was ich wollte und auch die Ressourcenfreigabe scheint zu erfolgen.

Natürlich hat "M. Hassmann" absolut recht. Nur war mir das zuviel für mein Anliegen, da der Code um das zu prüfen IMHO halb so gross ist wie die ganze EXE bisher an sich.

Danke @all

Wolle

[Bernhard Geyer]

Zitat:

Zitat von sirius

Zitat:

Zitat von Bernhard Geyer

Lest euch mal etwas in der Online-Hilfe ein. Der Code im Finally-Zweig wird immer abgearbeitet!
Das Konstrukt mit Ressourcenfreigabe im finally ist korrekt!

Wenn du schon so schlau und überheblich daherkommst:
Les dir bitte mal die Frage durch!

Zitat:

Zitat von wolle72

Wenn ich aber das "finally" durch ein "except" ersetze

:oops: Sorry.

Aber ein try ... finally sollte nicht zum hänger führen.
Kannst du den Code mit Debug-DCU's mal durchdebuggen wenn du keine Registry-Rechte hast wo genau die Anwendung hängen bleibt.

[wolle72]

Zitat:

Zitat von Bernhard Geyer

Aber ein try ... finally sollte nicht zum hänger führen.

Das dachte ich eigentlich auch.

Zitat:

Zitat von Bernhard Geyer

Kannst du den Code mit Debug-DCU's mal durchdebuggen.

Wenn ich herausbekomme wie das geht, dann kann ich das machen. Bin Neuling bei Delphi ;)