Running commands on certain OS versions......(Resolved)

[vbBoy]

Hello,

I would like my app to run certain commands on certain operating system version.

Please help.....

vbBoy.

[Hack]

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

[Vlatko]

Note that VB apps can only run on windows systems.

[vbBoy]

Thanxs.

That did it.

vbBoy