'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()