• Home
 · 
• Windows API Call/Explanation
 · 
• Get details about your OS using GetVersionEx API

Get details about your OS using GetVersionEx API

Get details about your OS using GetVersionEx API

API Declarations


dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Private Declare Function GetVersionEx Lib "kernel32.dll" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long




Rate Get details about your OS using GetVersionEx API

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim os As OSVERSIONINFO  ' receives version information 
Dim retval As Long  ' return value 
os.dwOSVersionInfoSize = Len(os)  ' set the size of the structure 
retval = GetVersionEx(os)  ' read Windows's version information 
MsgBox "Windows version number:" & os.dwMajorVersion & Chr(Asc(".")) & os.dwMinorVersion 
MsgBox "OS Version Info Size = " & os.dwOSVersionInfoSize 
MsgBox "BuildNumber = " & os.dwBuildNumber 
MsgBox "Platform ID = " & os.dwPlatformId 'Note If ID =0 win 3.x , ID=1 win9x and ID =2 WINNT 
MsgBox "CSD Version = " & os.szCSDVersion 
End 
End Sub