topic-7183

Frafive

Posts: 189

Joined: Wed Apr 05, 2006 09:48 PM

Version de Windows
Posted: Fri Jun 01, 2007 08:33 PM

Hola

Existe en fivewin alguna funcion que me devuelva la version de windows donde corre el exe ?

Un saludo

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Version de Windows
Posted: Fri Jun 01, 2007 09:10 PM

En source\function\errsysw.prg tienes un ejemplo de uso:

Code: Select all Collapse

   local aVersions := GetVersion()
   ...
      cErrorLog += "   Windows version: " + ;
                   AllTrim( Str( aVersions[ 1 ] ) ) + "." + ;
                   AllTrim( Str( aVersions[ 2 ] ) ) + ", Build " + ;
                   AllTrim( Str( aVersions[ 3 ] ) ) + ;
                   " " + aVersions[ 5 ] + CRLF + CRLF

regards, saludos

Antonio Linares
www.fivetechsoft.com

Frafive

Posts: 189

Joined: Wed Apr 05, 2006 09:48 PM

Version de Windows
Posted: Fri Jun 01, 2007 09:25 PM

Gracias Antonio , pero lo que yo quiero que me devuelva es si la version es win98 ,win95, winxp

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Version de Windows
Posted: Sat Jun 02, 2007 04:33 AM

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 Collapse

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Frafive

Posts: 189

Joined: Wed Apr 05, 2006 09:48 PM

Version de Windows
Posted: Sat Jun 02, 2007 10:12 AM

Gracias Antonio , funciona perfectamente.

FiveTech Support Forums

Continue the discussion