Probleme beim Auslesen von Registry Keys

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