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

現在時間を取得

現在時間を取得

使用関数：　GetTimeFormat

＊サンプル＊
#N88BASIC
'現在時刻表示
Dim buffer[255] As Byte
Dim TestBuf As String
GetTimeFormat(LOCALE_USER_DEFAULT, LOCALE_NOUSEROVERRIDE, ByVal 0, 0, buffer, 255)
TestBuf = buffer
Print TestBuf

現在日付を取得１

現在の日時を取得する

使用関数　GetDateFormat

＊サンプル＊
#N88BASIC
'現在の日付表示
Dim buffer[255] As Byte
Dim TestBuf As String
GetDateFormat(LOCALE_USER_DEFAULT, DATE_LONGDATE, ByVal 0, 0, buffer, 255)
TestBuf = buffer
Print TestBuf