source: branch/egtra-stream-without-en_dec/Classes/ActiveBasic/Windows/Version/Version.ab@ 675

'Classes/ActiveBasic/Windows/Version/Version.ab

Namespace ActiveBasic
Namespace Windows
Namespace Version

Namespace Detail
    Dim vi As OSVERSIONINFO

    Sub VerisionInfoInitailize()
        vi.dwOSVersionInfoSize = Len(vi)
        GetVersionEx(vi)
    End Sub
End Namespace

/*!
@brief 実行中のOSがNTかどうかを返す。
@date 2008/08/22
@auther Egtra
*/
Function IsNT() As Boolean
    Return Detail.vi.dwPlatformId = VER_PLATFORM_WIN32_NT
End Function

/*!
@brief 実行中のOSが9xかどうかを返す。
@date 2008/08/22
@auther Egtra
*/
Function Is9x() As Boolean
    Return Detail.vi.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS 'Or vi.dwPlatformId = VER_PLATFORM_WIN32s
    'Win32sの動作確認が取れたら上のコメントアウト外す。
End Function

/*!
@brief 実行中のOSがW版APIを使えるかどうかを返す。
@date 2008/08/22
@auther Egtra
*/
Function IsUnicodeAware() As Boolean
    Return IsNT()
End Function

End Namespace
End Namespace
End Namespace

ActiveBasic.Windows.Version.Detail.VerisionInfoInitailize()