Как определить версию ОС и Офиса?

[aaf]

Сабж солбственно....

[Aleksej]

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]

[DiSe]

А легче покапаться в реестре с помощью API.