Hello,
I would like my app to run certain commands on certain operating system version.
Please help.....
vbBoy.
Printable View
Hello,
I would like my app to run certain commands on certain operating system version.
Please help.....
vbBoy.
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_WIN32_NT = 2
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
'Get OS Version
Dim WinVer As OSVERSIONINFO
WinVer.dwOSVersionInfoSize = Len(WinVer)
GetVersionEx WinVer
If (WinVer.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS) Then '=== Win95/98
'Do 9x commands
ElseIf (WinVer.dwPlatformId = VER_PLATFORM_WIN32_NT) Then '=== WinNT
'Do NT Commands
End If
Note that VB apps can only run on windows systems.:(
Thanxs.
That did it.
vbBoy