Line | |
---|
1 | 'Classes/ActiveBasic/Windows/Version/Version.ab
|
---|
2 |
|
---|
3 | Namespace ActiveBasic
|
---|
4 | Namespace Windows
|
---|
5 | Namespace Version
|
---|
6 |
|
---|
7 | Namespace Detail
|
---|
8 | Dim vi As OSVERSIONINFO
|
---|
9 |
|
---|
10 | Sub VerisionInfoInitailize()
|
---|
11 | vi.dwOSVersionInfoSize = Len(vi)
|
---|
12 | GetVersionEx(vi)
|
---|
13 | End Sub
|
---|
14 | End Namespace
|
---|
15 |
|
---|
16 | /*!
|
---|
17 | @brief 実行中のOSがNTかどうかを返す。
|
---|
18 | @date 2008/08/22
|
---|
19 | @auther Egtra
|
---|
20 | */
|
---|
21 | Function IsNT() As Boolean
|
---|
22 | Return Detail.vi.dwPlatformId = VER_PLATFORM_WIN32_NT
|
---|
23 | End Function
|
---|
24 |
|
---|
25 | /*!
|
---|
26 | @brief 実行中のOSが9xかどうかを返す。
|
---|
27 | @date 2008/08/22
|
---|
28 | @auther Egtra
|
---|
29 | */
|
---|
30 | Function Is9x() As Boolean
|
---|
31 | Return Detail.vi.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS 'Or vi.dwPlatformId = VER_PLATFORM_WIN32s
|
---|
32 | 'Win32sの動作確認が取れたら上のコメントアウト外す。
|
---|
33 | End Function
|
---|
34 |
|
---|
35 | /*!
|
---|
36 | @brief 実行中のOSがW版APIを使えるかどうかを返す。
|
---|
37 | @date 2008/08/22
|
---|
38 | @auther Egtra
|
---|
39 | */
|
---|
40 | Function IsUnicodeAware() As Boolean
|
---|
41 | Return IsNT()
|
---|
42 | End Function
|
---|
43 |
|
---|
44 | End Namespace
|
---|
45 | End Namespace
|
---|
46 | End Namespace
|
---|
47 |
|
---|
48 | ActiveBasic.Windows.Version.Detail.VerisionInfoInitailize()
|
---|
Note:
See
TracBrowser
for help on using the repository browser.