Probleme beim Auslesen von Registry Keys

[Luckie]

Warum keine gescheite Fehlerbehandlung? MessageDlg('Could not open Registry Key!', mtError, [mbOK], 0); Damit weißt du so viel wie vorher. RaiseLastOSError gibt dir eine gescheite Fehlermeldung aus, womit du auch was anfangen kannst.

[Sir Rufo]

Zitat von Luckie:

Warum keine gescheite Fehlerbehandlung? MessageDlg('Could not open Registry Key!', mtError, [mbOK], 0); Damit weißt du so viel wie vorher. RaiseLastOSError gibt dir eine gescheite Fehlermeldung aus, womit du auch was anfangen kannst.

Definitiv Nein, so nicht. Denn du weißt nicht, was diese Klasse danach noch alles an API-Aufrufen veranstaltet. Aus diesem Grunde gibt es - ja ist komisch - TRegistry.LastError und die Exception löst man dann mit RaiseLastOSError( regKey.LastError, sLineBreak + RegKeyStr ); und erhält eine ganz wunderbare Fehlermeldung.

Und wenn kein erfolgreicher OpenKey(ReadOnly), dann braucht es auch keinen CloseKey.

[Luckie]

Ab welcher Version gibt es denn die Methode?

Und warum sollte ein Aufruf von RaiseLastOSError zu Problemen führen? Mit deiner Begründung dürfte man die Funktion nie aufrufen, egal in was für einen Code.

[Sir Rufo]

Zitat von Luckie:

Ab welcher Version gibt es denn die Methode?

Und warum sollte ein Aufruf von RaiseLastOSError zu Problemen führen? Mit deiner Begründung dürfte man die Funktion nie aufrufen, egal in was für einen Code.

Nun schauen wir an, was die Doku dazu sagt:

Zitat:

You should call the GetLastError function immediately when a function's return value indicates that such a call will return useful data. That is because some functions call SetLastError with a zero when they succeed, wiping out the error code set by the most recently failed function.

Und ohne eine genaue Analyse der Klasse TRegistry kann man nicht sagen, was da noch für API-Calls ausgeführt werden. Somit wäre das ein Fall von "kann funktionieren, muss aber nicht und vor allem kann irgendwann dann mal gar nicht mehr funktionieren".

Sinnvoll ist hier auch ein ClassHelper

Delphi-Quellcode:

interface

uses
  System.Win.Registry;

type
  HRegistry = class helper for TRegistry
    procedure ThrowLastError( const AdditionalInfo: string = '' );
    procedure OpenKeySafe( const Key: string; CanCreate: Boolean );
    procedure OpenKeyReadOnlySafe( const Key: string );
  end;

implementation

uses
  System.StrUtils,
  System.SysUtils;

{ HRegistry }

procedure HRegistry.OpenKeyReadOnlySafe( const Key: string );
begin
  if not OpenKeyReadOnly( Key )
  then
    ThrowLastError( Key );
end;

procedure HRegistry.OpenKeySafe( const Key: string; CanCreate: Boolean );
begin
  if not OpenKey( Key, CanCreate )
  then
    ThrowLastError( Key );
end;

procedure HRegistry.ThrowLastError( const AdditionalInfo: string );
begin
  if AdditionalInfo = ''
  then
    RaiseLastOSError( LastError )
  else
    RaiseLastOSError( LastError, sLineBreak + AdditionalInfo );
end;

Und dann sieht das so aus

Delphi-Quellcode:

procedure TForm1.Button30Click(Sender: TObject);

var
  regKey : TRegistry;
begin
  regKey := TRegistry.Create(KEY_READ OR KEY_WOW64_64KEY);
  Try
    regKey.RootKey := HKEY_LOCAL_MACHINE;
    regKey.OpenKeyReadOnlySafe('SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update');
    try 
      ShowMessage( regKey.ReadString( 'NextDetectionTime' ) );
    finally
      regKey.CloseKey();
    end;
  Finally
    regKey.Free;
  End;
end;

[Luckie]

Nun ja. Mit meinem Delphi kann ich von Helper Functions nur träumen.

[Sir Rufo]

Zitat von Luckie:

Nun ja. Mit meinem Delphi kann ich von Helper Functions nur träumen.

Na dann einfach ableiten und dort noch dazupacken

[SlpLow]

Zitat von Luckie:

Nun ja. Mit meinem Delphi kann ich von Helper Functions nur träumen.

Code:

//Autor GunSmoker
resourcestring
  SMsgOSError = '%s' + sLineBreak + 'System Error.  Code: %d.' + sLineBreak + '%s';
  SMsgUnkOSError = '%s' + sLineBreak + 'A call to an OS function failed';

procedure RaiseLastOSError(LastError: Integer; const AMsg: String); overload;
var
  Error: EOSError;
begin
  if AMsg = '' then
    RaiseLastOSError(LastError);

  if LastError <> 0 then
    Error := EOSError.CreateResFmt(@SMsgOSError,
      [AMsg, LastError, SysErrorMessage(LastError)])
  else
    Error := EOSError.CreateResFmt(@SMsgUnkOSError, [AMsg]);
  Error.ErrorCode := LastError;
  raise Error;
end;