1:
2:
3:
4:
5:
6:

procedure TfrmMain.actSystemScreensaverConfigureExecute(Sender: TObject);
begin
  ShellExecute(Self.Handle, 'open', PChar(Self.RegAccess.ReadString(HKCU,
    'Control Panel\Desktop', 'SCRNSAVE.EXE', '')), '/C', '', SW_SHOWNORMAL);
//Das geht nicht. Warum steht in der Registry unter scrfile -> config nur "%1" ?
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

type
  //Vereinfacht den Zugriff auf die Registry, wenn man sichergehen will, dass
  //kein Fehler kommt. Existiert ein Eintrag nicht, wird der mit übergebene
  //Standard-Wert zurückgegeben. - SJ
  TRegistryAccess = class
  private
    fReg: TRegistry;
  public
    constructor Create;
    destructor Destroy; override;

    function ReadString(uRootKey: HKEY;
      uKeyPath, uKeyName, uDefault: String): String;
  end;

implementation

{ TRegistryAccess }

constructor TRegistryAccess.Create;
begin
  Self.fReg := TRegistry.Create;
end;

destructor TRegistryAccess.Destroy;
begin
  Self.fReg.Free;
  inherited;
end;

function TRegistryAccess.ReadString(uRootKey: HKEY;
  uKeyPath, uKeyName, uDefault: String): String;
//Ausführung dauert bei 2 GHz ca. 17 Mikrosekunden, daher gegenüber baumartiger
//Durchsuchung der Registry eventuell besser geeignet.
begin
  try
    Self.fReg.RootKey := uRootKey;
    if Self.fReg.OpenKey(uKeyPath, False)
      and Self.fReg.ValueExists(uKeyName) then
      Result := Self.fReg.ReadString(uKeyName)
    else
      Result := uDefault;
  finally                              
    Self.fReg.CloseKey;
  end;
end;