取得 Windows 版本
如何取得 Windows 版本
' API 宣告
Private Declare Function GetVersion Lib "kernel32" () As Long
Public Function GetWinVer() As String
Dim lngVer As Long, lngWinVer As Long
lngVer = GetVersion()
lngWinVer = lngVer And &HFFFF&
' 取得 Windows 版本
GetWinVer = Format((lngWinVer Mod 256) + ((lngWinVer \ 256) / 100), "Fixed")
End Function