L'auteur
Anatole 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é ...
|