ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Détecter la version exacte de Windows   



L'auteur

Anatole
France France
Membre Simple
# 0000000002
enregistré le 12/10/2004

Fiche personnelle


Note des membres
pas de note

Contributions > 05 - API et appels systèmes

Détecter la version exacte de Windows
# 0000000092
ajouté le 25/11/2004 00:32:47 et modifié le 25/11/2004
consulté 7779 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0

Description

Ce script permet de connaître la version exacte de Windows

Code source :
DECLARE INTEGER GetVersion IN kernel32

DECLARE SHORT StrToIntEx IN Shlwapi;
    STRING pszString, INTEGER dwFlags, INTEGER @pllRet

lnVersion = GetVersion()
lnVersionLo = BitRShift(BitLShift(lnVersion, 16), 16)
v_version = ltrim(str(BitAnd(lnVersionLo, hex2dec("0x00ff")))) + "." +;
            ltrim(str(BitRShift(BitAnd(lnVersionLo, hex2dec("0xff00")), 8)))
do case
  case v_version == "5.1"
    ?"Windows XP"
  case v_version == "5.0"
    ?"Windows 2000"
  case v_version == "4.1"
    ?"Windows 98"
  case v_version == "4.0"
    ?"Windows 95"
endcase

function hex2dec(lcHex)
local lnRet
  lnRet = 0
  return iif(StrToIntEx (lcHex, 1, @lnRet) = 1, lnRet , 0)
endfunc
Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3