ดูกระทู้นี้ครับ http://www.thai-access.com/suphap.php?topic_id=333

ผมได้ลองเอา 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

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

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

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

ลองแล้วครับ Return เป็น Run WindowXP มัน Return เป็น Window NT ครับ ก็ถือว่าใช้ได้แล้วครับแบบนี้ ขอบคุณมากครับ