Functions.LoByte 方法 |
命名空间: XSharp.Core
1LOCAL dwVersion AS DWORD 2LOCAL wDOS, wWindows AS DWORD 3LOCAL bDOSMinor, bDOSMajor AS BYTE 4LOCAL bWindowsMajor, bWindowsMinor AS BYTE 5dwVersions := GetVersion() 6wDOS := HiWord(dwVersions) 7bDOSMajor := HiByte(wDOS) 8bDOSMinor := LoByte(wDOS) 9wWindows := LoWord(dwVersions) 10bWindowsMinor := HiByte(wWindows) 11bWindowsMajor := LoByte(wWindows) 12? "DOS 主版本号和次版本号是",; 13 bDOSMajor, bDOSMinor 14// DOS 主版本号和次版本号是 5 0 15? "Windows 主版本号和次版本号是",; 16 bWindowsMajor, bWindowsMinor 17// Windows 主版本号和次版本号是 3 10