Версия IE

[Sirik]

Как узнать какая версия у Internet Explorer'a?

[tyomitch]

Help -> About Internet Explorer

Что конкретно надо-то?

[Sirik]

Мда... Ну ты и молодец Это и дураку понятно.
Мне надо программно!

[tyomitch]

Ну, читай из HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Version

[Sirik]

Ну, читай из HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Version

Млжет всё-таки ключ Version Vector ?

[tyomitch]

Тебе лучше знать

FYI, тот текст, что отображается в Help -> About Internet Explorer, лежит в файле shdoclc.dll, ресурс типа HTML, называется about.dlg
Можешь там посмотреть, что откуда берётся.

[Sedge]

Держи.
http://msdn.microsoft.com/library/defau ... ersion.asp

Код: Выделить всё

Private Type DllVersionInfo
   cbSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformID As Long
End Type

Private Declare Function DllGetVersion Lib "Shlwapi.dll" _
  (dwVersion As DllVersionInfo) As Long

Public Function GetIEVerString() As String
'
On Error GoTo eRes

'//////////////////////////////////////////////////////////////////////////////////////
  Dim dviVersionStructure As DllVersionInfo
'//////////////////////////////////////////////////////////////////////////////////////

With dviVersionStructure
  .cbSize = Len(dviVersionStructure)
  Call DllGetVersion(dviVersionStructure)
  GetIEVerString = "IE v." & .dwMajorVersion & "." & .dwMinorVersion & "." & .dwBuildNumber
End With

Exit Function
eRes:
  Call MsgBox(Err.Description)
  Stop
End Function


[Sirik]

Вот за это, большое человеческое спасибо

[alibek]

А помоему пример неполный...

[tyomitch]

Она у меня выводит 6.0.2800
А в окне About - 6.0.2800.1106
Где четвёртая цифирь?

[Sirik]

А помоему пример неполный...

А мне надо знать только: .dwMajorVersion и .dwMinorVersion

[marvan]

'версия WebBrowser control
Private Sub Form_Load()
    WebBrowser1.Navigate "About:Me"
    While WebBrowser1.Document Is Nothing
        DoEvents
    Wend
    MsgBox (WebBrowser1.Document.parentWindow.navigator.appVersion)
End Sub

Как отформатирован этот код?