vdfsplat / AppSrc / cWinKern.pkg @ 62
History | View | Annotate | Download (1.41 KB)
| 1 |
|
|---|---|
| 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 |
| 41 |
|