pb中获得window系统类型

核心使用的是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.10
	ls_WinVer = "Windows 3.x"
Case 4
	ls_WinVer = "Windows NT 4.0"
Case 4.10
	ls_WinVer = "Windows 98"
Case 5
	ls_WinVer = "Windows 2000"
Case 5.01
	ls_WinVer = "Windows XP"
Case 5.02
	ls_WinVer = "Windows 2003"
Case 6.01
	ls_WinVer = "Windows 7"
case 6.02
	ls_winver = "Windows 10"
End Choose
messagebox('',ls_WinVer )