kiểm tra được hệ điều hành hiện thời của máy bằng VB6.0

English | Vietnamese

Rules

Main Forum

Portal

Member Listing

Statistics

Search

Reading Room
[Register]

Login [ | https ]

Forum Index

Thảo luận hệ điều hành Windows

kiểm tra được hệ điều hành hiện thời của máy bằng VB6.0

[Programming] kiểm tra được hệ điều hành hiện thời của máy bằng VB6.0	30/06/2006 23:21:21 (+0700) \| #1 \| 2549

hoanganhloc
Elite Member

Joined: 05/04/2003 16:47:35
Messages: 28
Offline

Bạn có thể gọi hàm API của Windows tên là GetVersionEx() để xác định được phiên bản của HĐH hiện hành. Đoạn code VB sẽ đọc thông tin của HĐH và hiển thị lên màn hình :
‘ Khai báo kiểu dữ liệu
Option Explicit
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 ‘ Maintenance string for PSS usage.
End Type
‘ Khai báo hằng dữ liệu
Const VER_PLATFORM_WIN32s = 0
Const VER_PLATFORM_WIN32_WINDOWS = 1
Const VER_PLATFORM_WIN32_NT = 2
‘ Khai báo hàm API
Private Declare Function GetVersionEx Lib “kernel32” Alias “GetVersionExA” _
(lpVersionInformation As OSVERSIONINFO) As Long
‘ Hàm đọc thông tin và hiển thị
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
MsgBox “Platform: “ & PlatformName & vbCrLf & _
“Version: “ & WindowsVersion & vbCrLf & _
“Build: “ & BuildVersion
End Function

hakuso: trích từ http://www.pcworld.com.vn/pcworld/faq.asp?t=faqview&id=433&cat_id=2&fn=228fd4c31e4e1a1cadc20006

Go to:

Users currently in here
1 Anonymous