TRegistry.ReadString......Gibt es Platzhalter in der Reg?

[fLaSh11]

Auf jeden fall noch ein try fianlly rein!

Delphi-Quellcode:

  with regist:=TRegistry.Create do
    begin
    try
      RootKey:=HKEY_LOCAL_MACHINE;
      OpenKey('SOFTWARE\Mozilla\Mozilla Firefox\',true);
      CurrentVersion:= regist.ReadString('CurrentVersion');
      CloseKey;

      Path:= 'SOFTWARE\Mozilla\Mozilla Firefox\' +CurrentVersion+ '\Main';

      OpenKey(Path, true);

      Result :=ReadString('Install Directory') + '\';
    finally
      Free;
    end;
  end;