Hola,

Detectando la versión de Windows.
Para ello tienes que hacer lo siguiente:

---xxx---

Private Declare Function GetVersion Lib "Kernel" () As Long

Dim Ver As Long
Dim DosVer As Long
Dim WinVer As Long
Dim sWin As String
Dim sDOS As String

' Operating System Info.
    Ver = GetVersion()
    WinVer = Ver And &HFFFF&
    DosVer = Ver \ &H10000

sWin = " Windows Versión " _
& Format((WinVer Mod 256) + ((WinVer \ 256) / 100), "Fixed")

sDOS = " Sistema Operativo (MS-DOS): " _
& Format((DosVer \ 256) + ((DosVer Mod 256) / 100), "Fixed") & " "

---xxx---

Espero que te sirva.

Nos vemos.
Guillermo


-----
> Date: Thu, 07 Aug 1997 12:42:10 -0500
> To: vb-esp@ccc.uba.ar
> From: Cesar Altamirano Arbayza <cesaralt@amauta.rcp.net.pe>
> Subject: (VB-ESP) Windows'95 ?
> Reply-to: vb-esp@ccc.uba.ar

> Hola amigos listeros,
> Tengo una pregunta, trabajo con VB 3.0 y en ambiente Windows for GroupWorks
> 3.11
> y Windows'95. Como puedo hacer para que en tiempo de ejecucion el
> ejecutable de Visual Basic detecte si estoy en ambiente Windows'95.
>
> Muchas gracias por adelantado.
>
> Atentamente,
> Cesar Altamirano.
>
>