核心使用的是windowsAPI
GetVersion() "kernel32.dll"
定义外部函数
FUNCTION ulong GetVersion() LIBRARY "kernel32.dll"函数调用
Long ll_WinVer
Dec{2} ldc_WinVer
String ls_WinVer
ll_WinVer = GetVersion()
ldc_WinVer = Mod(IntLow(ll_WinVer),256) + Int(IntLow(ll_WinVer)/256)/100
Choose Case ldc_WinVer
Case 3.10ls_WinVer = "Windows 3.x"
Case 4ls_WinVer = "Windows NT 4.0"
Case 4.10ls_WinVer = "Windows 98"
Case 5ls_WinVer = "Windows 2000"
Case 5.01ls_WinVer = "Windows XP"
Case 5.02ls_WinVer = "Windows 2003"
Case 6.01ls_WinVer = "Windows 7"
case 6.02ls_winver = "Windows 10"
End Choose
messagebox('',ls_WinVer )