取得 Windows 版本

取得 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