98系とNT系の識別

98系とNT系の識別

使用関数：　GetVersionEx

＊サンプル＊
#N88BASIC
'98系とNT系の識別
Dim osVerInfo As OSVERSIONINFO
Dim SizeBuf As Long

SizeBuf = Len(osVerInfo)
osVerInfo.dwOSVersionInfoSize = SizeBuf
GetVersionEx(osVerInfo)
'
Select Case osVerInfo.dwPlatformId
Case VER_PLATFORM_WIN32_WINDOWS
'Windows9x系OSのWin32
Print "98"
Case VER_PLATFORM_WIN32_NT
'WindowsNT系OSのWin32
Print "NT"
End Select