Very Computer

Using VB6 Enterprise

Is there a simply way i.e an API call that can tell me what O/S my program at runtime is currently
running on?

Thanks

Adrian Harrison

I use Environ("OS"). There may be better ways.

Randy Johnston

Quote:>> Is there a simply way i.e an API call that can tell me what O/S my

program at runtime is currently

Quote:>> running on?

>> Thanks

>> Adrian Harrison

>I use Environ("OS"). There may be better ways.

>Randy Johnston

Environ("OS") assumes you've set an environment variable called OS.

I couldn't see it set on any PC's I looked at, so it's probably not standard
or default on all Windows PCs.

There are API's which return the info, but the *simplest* way in VB6 is to
use "Microsoft Sysinfo control 6.0" (goto Project, Components and select
this component (sysinfo.ocx)).

Then simply access the OSPlatform property of the control which will return
one of the following three values:

0 = Win32s
1 = Windows 95/98
2 = Windows NT

You can also access the version and build information of the operating
system (as well as things like battery power left etc.).  This control is
really just a wrapper for the corresponding API calls (so it's arguably
overkill), but you did ask for the *simplest* method.  8)

Hope that helps,

Dougie Henderson

Use the following function:

Public Sub GetSystemVersion()
'copy declarations from API viewer. OSVersion is a OSVERSIONINFO struct.

Dim ret As Long

'initialiseer struct
OSVersion.dwOSVersionInfoSize = Len(OSVersion)

'gegevens ophalen
ret = GetVersionEx(OSVersion)

'strippen overbodige gegevens: we hebben alleen low-order word nodig
OSVersion.dwBuildNumber = (OSVersion.dwBuildNumber And ((2 ^ 16) - 1))

End Sub

Quote:>Using VB6 Enterprise

>Is there a simply way i.e an API call that can tell me what O/S my program

at runtime is currently

Quote:>running on?

>Thanks

>Adrian Harrison