vdfsplat / AppSrc / cWinKern.pkg @ 58
History | View | Annotate | Download (1.41 KB)
| 1 | 14 | wil | |
|---|---|---|---|
| 2 | Define WM_CHANGEUISTATE FOR |CI$0127 |
||
| 3 | Define WM_UPDATEUISTATE FOR |CI$0128 |
||
| 4 | Define WM_QUERYUISTATE FOR |CI$0129 |
||
| 5 | Define UIS_SET FOR 1 |
||
| 6 | Define UIS_CLEAR FOR 2 |
||
| 7 | Define UIS_INITIALIZE FOR 3 |
||
| 8 | Define UISF_HIDEFOCUS FOR |CI$1 |
||
| 9 | Define UISF_HIDEACCEL FOR |CI$2 |
||
| 10 | Define UISF_ACTIVE FOR |CI$4 |
||
| 11 | |||
| 12 | external_function GetVersionExEf "GetVersionExA" kernel32.dll Pointer pOsVersionInfo Returns Integer |
||
| 13 | |||
| 14 | TYPE tOsVersionInfo |
||
| 15 | Field tOsVersionInfo.dwOSVersionInfoSize as DWORD |
||
| 16 | Field tOsVersionInfo.dwMajorVersion as DWORD |
||
| 17 | Field tOsVersionInfo.dwMinorVersion as DWORD |
||
| 18 | Field tOsVersionInfo.dwBuildNumber as DWORD |
||
| 19 | Field tOsVersionInfo.dwPlatformId as DWORD |
||
| 20 | Field tOsVersionInfo.szCSDVersion as Char 128 |
||
| 21 | END_TYPE |
||
| 22 | |||
| 23 | |||
| 24 | |||
| 25 | // Are we running windows 2000 or higher? |
||
| 26 | // |
||
| 27 | // |
||
| 28 | Function RunningW2kOrUp Global Returns Boolean |
||
| 29 | Integer iRet |
||
| 30 | Integer iMajorVersion |
||
| 31 | string sVersionInfo |
||
| 32 | Boolean bIsW2kOrUp |
||
| 33 | |||
| 34 | Zerotype tOsVersionInfo to sVersionInfo |
||
| 35 | Put tOsVersionInfo_Size to sVersionInfo at tOsVersionInfo.dwOsVersionInfoSize |
||
| 36 | Move (GetVersionExEf(addressof(sVersionInfo))) to iRet |
||
| 37 | Getbuff From sVersionInfo at tOsVersionInfo.dwMajorVersion to iMajorVersion |
||
| 38 | Move (iMajorVersion >= 5) To bIsW2kOrUp |
||
| 39 | Function_Return bIsW2kOrUp |
||
| 40 | End_Function // RunningW2kOrUp |