Where is installed the default web browser

…………………

Uses registry ;

…………………

Procedure TForm1.Button1Click ( 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 ;