API函数调用:
Function boolean RtlGetNtVersionNumbers (Ref long Major, Ref long Minor, ref long Optional ) library "ntdll.dll"
long Major, Minor, Optional
RtlGetNtVersionNumbers (Major,Minor, Optional )
messagebox("", string(Major) + "." + string(Minor)) //版本号
其他编程语言也调用上面API, 获取系统版本号, 这个是应该最好用的。