Rev | Line | |
---|
[614] | 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.