PLATFORM PROPERTIES

versión 11 (Modificado)

PLATFORM PROPERTIES (plataforma{; sistema{; procesador{; lenguaje}}})

El comando PLATFORM PROPERTIES devuelve información sobre el tipo de sistema operativo que está utilizando, la versión y el lenguaje del sistema operativo, como también el procesado instalado en su equipo.

PLATFORM PROPERTIES devuelve la información en los parámetros plataforma, sistema, procesador y lenguaje.

• plataforma indica el sistema operativo utilizado. Este parámetro devuelve una de las siguientes constantes predefinidas:

• La información devuelta en sistema depende de la versión de 4D que utilice.

Si está corriendo una versión Mac OS de 4D, el parámetro sistema devuelve un valor de 32 bits (Entero largo), en el cual la palabra de nivel más alto no se utiliza y la palabra de nivel más bajo se estructura de esta forma:

- El byte superior contiene el número de versión principal,

- El byte inferior está compuesto de dos cuartetos o nibbles (conjuntos de 4 bits). El nivel superior es el número de actualización principal y el nibble inferior el número de actualización secundaria. Ejemplo: el sistema 9.0.4 está codificado como $0904, de manera usted reciba el valor decimal 2308.

Nota: En 4D, puede extraer estos valores utilizando los operadores numéricos % (módulo) y \ (división entera) o los Bitwise operators.

Utilice la siguiente fórmula para conocer el número de versión principal de Mac OS:

   PLATFORM PROPERTIES($vlPlataforma;$vlSistema)
   $vlResult:=$vlSistema\256
      `If $vlResult = 8  --> usted está bajo Mac OS 8.x
      `If $vlResult = 9  --> usted está bajo Mac OS 9.x
      `If $vlResult = 16  --> usted está bajo Mac OS 10.x

Versión Windows

Si está corriendo una versión Windows de 4D, el parámetro sistema devuelve un valor 32 bits (Entero largo), los bits y los bytes están estructurados así:

Si el bit superior vale 0, significa que usted está utilizando Windows NT, Windows 2000, Windows XP o Windows Vista. Si el bit vale 1, significa que está utilizando Windows 95 o Windows 98 (ambos obsoletos).

Nota: El bit superior determina el signo del valor Entero largo. Por lo tanto, en 4D, sólo necesita probar el signo del valor; si es positivo usted está bajo Windows NT, Windows 2000, Windows XP o Windows Vista. Igualmente puede utilizar Bitwise operators.

El octeto inferior da el número de versión principal de Windows. Si devuelve 4, usted utiliza Windows 95, 98 o Windows NT 4. Si devuelve 5, usted utiliza Windows 2000 o Windows XP (en ambos casos, el signo del valor indica si usted utiliza Windows NT/2000 o no). Si devuelve 6, usted utiliza Windows Vista.

El octeto inferior siguiente da el número de versión secundaria de Windows. Bajo Windows 95, este valor es 0.

Nota: En 4D, puede extraer estos valores utilizando los operadores numéricos % (módulo) y \ (división entera) o los Bitwise operators.

• El parámetro procesador indica la "familia" del microprocesador del equipo. Pueden devolverse dos valores, disponibles en forma de constantes:

La combinación de los parámetros plataforma y procesador puede utilizarse por ejemplo para conocer sin ambigüedad si el equipo utilizado es de tipo "MacIntel" (plataforma=Mac OS y procesador=Compatible Intel).

• El parámetro lenguaje se utiliza para conocer el lenguaje actual del sistema en el cual se ejecuta la base. Esta es una lista de códigos que pueden devolverse en este parámetro, así como su significado:

Nota: Si comando no puede identificar el lenguaje del sistema, se devuelve el valor 9 (inglés).

El siguiente método de proyecto muestra una caja de diálogo de alerta describiendo el sistema operativo que usted está utilizando:

      ` Método de proyecto SHOW OS VERSION

   PLATFORM PROPERTIES($vlPlataforma;$vlSistema;$vlEquipo)
   If (($vlPlataforma<2) | ($vlPlataforma>3))
      $vsPlataformaOS:=""
   Else 
      If ($vlPlataforma=Windows)
         $vsPlataformaOS:=""
         If ($vlSistema<0)
            $winMajVers:=((2^31)+$vlSistema)%256
            $winMinVers:=(((2^31)+$vlSistema)\256)%256
            If ($winMinVers=0)
               $vsPlatformOS:="Windows™ 95"
            Else
               $vsPlatformOS:="Windows™ 98"
            End if
         Else 
            $winMajVers:=$vlSistema%256
            $winMinVers:=($vlSistema\256)%256
            Case of
               : ($winMajVers=4)
                  $vsPlatformOS:="Windows™ NT"
               : ($winMajVers=5)
                  If ($winMinVers=0)
                     $vsPlataformaOS:="Windows™ 2000"
                  Else
                     $vsPlataformaOS:="Windows™ XP"
                  End if
               : ($winMajVers=6)
                  $vsPlataformaOS:="Windows™ Vista"

            End case
         End if 
         $vsPlataformaOS:=$vsPlataformaOS+" versión "+String($winMajVers)+"."+String($winMinVers)
      Else 
         $vsPlataformaOS:="Mac OS™ versión "
         If (($vlSistema\256) = 16)
            $vsPlataformaOS:=$vsPlataformaOS+"10"
         Else
            $vsPlataformaOS:=$vsPlataformaOS+String($vlSistema\256)
         End if
         $vsPlataformaOS:=$vsPlataformaOS+"."+String(($vlSistema\16)%16)+(("."+String($vlSistema%16))
                                                *Num(($vlSistema%16) # 0))
      End if 
   End if 
   ALERT($vsPlataformaOS)

En Windows, obtiene una caja de diálogo similar a esta:

En Macintosh, obtiene una caja de diálogo similar a esta:

Operadores de bits.