vdfsplat / AppSrc / cWinKern.pkg
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 |
|