Как определить версию ОС и Офиса?
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 3
• Страница 1 из 1
- Aleksej
- Продвинутый пользователь
-
- Сообщения: 191
- Зарегистрирован: 03.06.2003 (Вт) 9:58
Aleksej » 28.07.2003 (Пн) 12:03
Public Function Win_Info(ByRef Major As Long, ByRef Minor As Long, _
ByRef BuildNumber As Long) As String
WinInfo.dwOSVersionInfoSize = 148
Call GetVersionEx(WinInfo)
Major = WinInfo.dwMajorVersion
Minor = WinInfo.dwMinorVersion
BuildNumber = WinInfo.dwBuildNumber
If WinInfo.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
Win_Info = "Windows 98"
ElseIf WinInfo.dwPlatformId = VER_PLATFORM_WIN32_NT Then
Win_Info = "Windows NT"
End If
End Function[/code]
ByRef BuildNumber As Long) As String
WinInfo.dwOSVersionInfoSize = 148
Call GetVersionEx(WinInfo)
Major = WinInfo.dwMajorVersion
Minor = WinInfo.dwMinorVersion
BuildNumber = WinInfo.dwBuildNumber
If WinInfo.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
Win_Info = "Windows 98"
ElseIf WinInfo.dwPlatformId = VER_PLATFORM_WIN32_NT Then
Win_Info = "Windows NT"
End If
End Function[/code]
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: PetalBot и гости: 2