Obtain the path to the installed web browser

…………………………..

Uses Registry ;

…………………………..

Procedure TForm1.BitBtn1Click ( Sender : TObject ) ;

Var

   reg         : TRegistry ;

   KeyName     : String ;

   ValueStr    : String ;

Begin

   reg := TRegistry.Create ;

   Try

      reg.RootKey := HKEY_CLASSES_ROOT ;

      KeyName := 'htmlfile\shell\open\command' ;

      If reg.OpenKey ( KeyName , False ) Then

      Begin

         ValueStr := reg.ReadString ( '' ) ;

         reg.CloseKey ;

         Caption := ValueStr ;

      End ;

   Finally

      reg.Free ;

   End ;

End ;