Page 1 of 1
Version de Windows
Posted: Fri Jun 01, 2007 8:33 pm
by Frafive
Hola
Existe en fivewin alguna funcion que me devuelva la version de windows donde corre el exe ?
Un saludo
Posted: Fri Jun 01, 2007 9:10 pm
by Antonio Linares
En source\function\errsysw.prg tienes un ejemplo de uso:
Code: Select all
local aVersions := GetVersion()
...
cErrorLog += " Windows version: " + ;
AllTrim( Str( aVersions[ 1 ] ) ) + "." + ;
AllTrim( Str( aVersions[ 2 ] ) ) + ", Build " + ;
AllTrim( Str( aVersions[ 3 ] ) ) + ;
" " + aVersions[ 5 ] + CRLF + CRLF
Posted: Fri Jun 01, 2007 9:25 pm
by Frafive
Gracias Antonio , pero lo que yo quiero que me devuelva es si la version es win98 ,win95, winxp
Posted: Sat Jun 02, 2007 4:33 am
by Antonio Linares
Solo tienes que comprobar los valores que te devuelven aVersions[ 1 ] y aVersions[ 2 ] para saber si es Win95, Win98, WinXP, Vista, etc.
El siguiente código:
Code: Select all
function Main()
MsgInfo( AllTrim( Str( GetVersion()[ 1 ] ) ) + "." + ;
AllTrim( Str( GetVersion()[ 2 ] ) ) )
return nil
Devuelve:
6.0 para Vista, 5.2 para XP, 4.10 para Win98 y 4.0 para Win95
Posted: Sat Jun 02, 2007 10:12 am
by Frafive
Gracias Antonio , funciona perfectamente.