ต้องการ Function ที่ Get Version ของ Window ใน Access 97
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 246   4
URL.หัวข้อ / URL
ต้องการ Function ที่ Get Version ของ Window ใน Access 97

มาอีกแล้วครับสำหรับคำถาม
คือ ต้องการ Function ที่ Get Version ของ Window ใน Access 97 เพื่อจะเอาไปใช้แยก Script เกี่ยวกับวันที่เป็น 2 ส่วนครับหรืออะไรก็ได้ครับ ที่ทำให้ Access 97 แยกได้ว่าเป็น Window98 หรือ WindowXP พอจะมีบ้างมั้ยครับ

ขอบคุณครับ

4 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R05738
ดูกระทู้นี้ครับ http://www.thai-access.com/suphap.php?topic_id=333
2 @R05744
ผมได้ลองเอา Function ที่แนะนำอยู่ใน Link ไปใช้แล้วปรากฏว่า Compile Error ครับ ที่มันไม่รู้จัก Type OSVERSIONINFO

Public Function WinVersion() As Double
Dim OS_Platform As OSVERSIONINFO

OS_Platform.dwOSVersionInfoSize = Len(OS_Platform)
GetVersionEx OS_Platform

'Platform Version (3.x, 9x, NT)
WinVersion = OS_Platform.dwPlatformId

End Function
3 @R05746
ขออภัยครับ กระทู้ที่อ้างอิงไปมันถูกลบไปหลายส่วน

เอาโค้ดทั้งหมดไปเลยก็แล้วกันครับ

Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
(lpVersionInformation As OSVERSIONINFO) As Long


Function SysVersions32()
Dim v As OSVERSIONINFO, retval As Long
Dim WindowsVersion As String, BuildVersion As String
Dim PlatformName As String

v.dwOSVersionInfoSize = Len(v)
retval = GetVersionEx(v)

WindowsVersion = v.dwMajorVersion & "." & v.dwMinorVersion
BuildVersion = v.dwBuildNumber And &HFFFF&

Select Case v.dwPlatformId
Case VER_PLATFORM_WIN32_WINDOWS
PlatformName = "Windows 95"
Case VER_PLATFORM_WIN32_NT
PlatformName = "Windows NT"
End Select

debug.print "Platform: " & PlatformName
debug.print "Version: " & WindowsVersion
debug.print "Build: " & BuildVersion
End Function
4 @R05747
ลองแล้วครับ Return เป็น Run WindowXP มัน Return เป็น Window NT ครับ ก็ถือว่าใช้ได้แล้วครับแบบนี้ ขอบคุณมากครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0503s