Run Ver
Or
Run WinVer

[ 本帖最后由 aaaaaa 于 2015-8-27 15:17 编辑 ]

VFP的 OS() 现在可能不适用了，自从Win8后，GetVersion()/GetVersionEx()就不灵了。
据说微软“废除”了GetVersion()/GetVersionEx()，并建议使用 VerifyVersionInfo() 来获取版本信息。
微软提供了VersionHelpers.h头文件，里面声明有获取系统版本的函数：
IsWindowsXPOrGreater()   
IsWindowsXPSP1OrGreater()
IsWindowsXPSP2OrGreater()
IsWindowsXPSP3OrGreater()
IsWindowsVistaOrGreater()
IsWindowsVistaSP1OrGreater()
IsWindowsVistaSP2OrGreater()
IsWindows7OrGreater()
IsWindows7SP1OrGreater()
IsWindows8OrGreater()
IsWindows8Point1OrGreater()
IsWindows10OrGreater()
IsWindowsServer()
IsWindowsVersionOrGreater()
详细参考：https://msdn.

也有人说 ntdll.dll 文件的版本基本上就是系统的版本。

AGETFILEVERSION(aFile, "ntdll.dll")
?"版本：", aFile[4]

11楼原来的代码就可以在Win10上看到正确版本，跟9楼一样的。

Operating system : Windows 10 10.0* 10 0
Version number : 10.0*
dwMajorVersion : 10
dwMinorVersion : 0

*!*    OSVERSIONINFO Structure
*!*    https://msdn.

Clear
*| typedef struct _OSVERSIONINFO{
*|   DWORD dwOSVersionInfoSize;  0 | 4
*|   DWORD dwMajorVersion;       4 | 4
*|   DWORD dwMinorVersion;       8 | 4
*|   DWORD dwBuildNumber;       12 | 4
*|   DWORD dwPlatformId;        16 | 4
*|   TCHAR szCSDVersion[ 128 ]; 20 | 128 = 148 bytes
*| } OSVERSIONINFO;
?
*| typedef struct _OSVERSIONINFOEX {
*|   DWORD dwOSVersionInfoSize;  0 | 4
*|   DWORD dwMajorVersion;       4 | 4
*|   DWORD dwMinorVersion;       8 | 4
*|   DWORD dwBuildNumber;       12 | 4
*|   DWORD dwPlatformId;        16 | 4
*|   TCHAR szCSDVersion[ 128 ]; 20 | 128
*|   WORD wServicePackMajor;   148 | 2
*|   WORD wServicePackMinor;   150 | 2
*|   WORD wSuiteMask;          152 | 2
*|   BYTE wProductType;        154 | 1
*|   BYTE wReserved;           155 | 1 = 156 bytes
*| } OSVERSIONINFOEX, *POSVERSIONINFOEX, *LPOSVERSIONINFOEX;
?
DECLARE INTEGER GetVersionEx IN kernel32;
    STRING @ lpVersionInformation

* set dwOSVersionInfoSize to 148 (OSVERSIONINFO)
* or 156 (OSVERSIONINFOEX) bytes
lcInfo = Chr(156) + REPLI (Chr(0), 300)  && some loose space

nResult = GetVersionEx (@lcInfo)

? "Major Version      : ", buf2dword(SUBSTR(lcInfo,  5,4))
? "Minor Version      : ", buf2dword(SUBSTR(lcInfo,  9,4))
? "Build Number       : ", buf2dword(SUBSTR(lcInfo, 13,4))
? "szCSDVersion       : ", "["+STRTRAN(SUBSTR(lcInfo, 21,128), Chr(0),"")+"]"

? "Major Service Pack : ", buf2word(SUBSTR(lcInfo,  149,2))
? "Minor Service Pack : ", buf2word(SUBSTR(lcInfo,  151,2))
? "Suite Bit Flags    : ", buf2word(SUBSTR(lcInfo,  153,2))
? "Product Type       : ", Asc(SUBSTR(lcInfo,155,1))
? "Reserved Byte      : ", Asc(SUBSTR(lcInfo,156,1))

FUNCTION  buf2dword (lcBuffer)
RETURN;
    Asc(SUBSTR(lcBuffer, 1,1)) + ;
    Asc(SUBSTR(lcBuffer, 2,1)) * 256 +;
    Asc(SUBSTR(lcBuffer, 3,1)) * 65536 +;
    Asc(SUBSTR(lcBuffer, 4,1)) * 16777216
ENDFUNC

FUNCTION  buf2word (lcBuffer)
RETURN;
    Asc(SUBSTR(lcBuffer, 1,1)) + ;
    Asc(SUBSTR(lcBuffer, 2,1)) * 256
ENDFUNC

保存，需要时方便查询。谢谢

Windows看内核才是重要的，对外显示的版本号是没啥大用处的。

Run SYSTEMINFO /S My_IP_Address
E.G :
Run SYSTEMINFO /S 192.168.1.100