Power Builder - Version Windows

Amigos, necesito saber la version de windows instalado en la maquina del cliente.

Cual sera el codigo o la forma de saber

Atte

Andres

Saludos....

Por enésima vez... busquen en el foro...

//BUSCAR EL SISTEMA OPERATIVO...
string gs_os
CHOOSE CASE env.OSType

CASE Windows!
gs_os="Win_95_98"
...
CASE WindowsNT!
gs_os="Win_Nt"
...
END CASE

Hola Leopoldo el ejemplo es bueno pero como declaro
el objeto env ( es un uo ,un tipo de dato )

Espero me puedas responder

Saludos ..

Saludos....
Disculpa, la costumbre de tenerlo predefinido en la aplicación...

es una variable de tipo environment

En este caso tienes como obtener los pixel del monitor...

environment env
integer gi_y, gi_x
integer rtn
rtn = GetEnvironment(env)
IF rtn <> 1 THEN
HALT
else
gi_y=PixelsToUnits ( env.ScreenHeight, YPixelsToUnits! )
gi_x=PixelsToUnits ( env.ScreenWidth, XPixelsToUnits! )
...
END IF

Gracias Leopoldo

Ahora entiendo mejor el ejemplo

Saludos desde Lima.

Hola.
Otra solucion es utilizar la API de windows

Perdon.. se envio sin querer.......

//DECLARAR EN LOCAL EXTERNAL FUNCTIONS
Function uLong GetVersionExA( Ref str_osversioninfo lpVersionInfo ) Library "kernel32.dll" alias for "GetVersionExA;Ansi"


//ESTRUCTURA
$PBExportHeader$str_osversioninfo.srs
global type str_osversioninfo from structure
ulong dwOSVersionInfoSize
ulong dwmajorversion
ulong dwminorversion
ulong dwbuildnumber
ulong dwplatformid
character szcsdverion[128]
end type


//SCRIP

String SistemaOperativo

/* lstr_VersionInfo.dwMajorVersion:
Windows 95: 4
Windows 98: 4
Windows ME: 4
Windows NT 3.51: 3
Windows NT 4: 4
Windows 2000: 5
Windows XP: 5
Windows Vista :6

lstr_VersionInfo.dwMinorVersion:
Windows 95: 0
Windows 98: 10
Windows ME: 90
Windows NT 3.51: 51
Windows NT 4: 0
Windows 2000: 0
Windows XP: 1
Windows Vista :0
*/
str_OsVersionInfo lstr_VersionInfo

lstr_VersionInfo.dwosversioninfosize = 148
GetVersionExA( lstr_VersionInfo )

If ( lstr_VersionInfo.dwmajorversion = 4 And lstr_VersionInfo.dwminorversion = 0 ) Then
SistemaOperativo = "Windows 95"
End If

If ( lstr_VersionInfo.dwmajorversion = 4 And lstr_VersionInfo.dwminorversion = 10 )Then
SistemaOperativo = "Windows 98"
End If

If ( lstr_VersionInfo.dwmajorversion = 4 And lstr_VersionInfo.dwminorversion = 90 )Then
SistemaOperativo = "Windows Millenium"
End If

If ( lstr_VersionInfo.dwmajorversion = 4 And lstr_VersionInfo.dwminorversion = 0 )Then
SistemaOperativo = "Windows NT 4"
End If

If ( lstr_VersionInfo.dwmajorversion = 5 And lstr_VersionInfo.dwminorversion = 0 ) Then
SistemaOperativo = "Windows 2000"
End If

If ( lstr_VersionInfo.dwmajorversion = 5 And lstr_VersionInfo.dwminorversion = 1 ) Then
SistemaOperativo = "Windows XP"
End If

Return SistemaOperativo


Nota : Windows Vista
majorversion =6 minorsversion =0


Saludos desde Argentina