核心使用的是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 )
