VbMaster
Messages postés21Date d'inscriptionmardi 26 novembre 2002StatutMembreDernière intervention15 avril 2004 12 déc. 2003 à 19:35
Pour savoir si on est sous 2000 ou XP :
Public Function IsWin2KXP() As Boolean
Dim oviInfo As OSVERSIONINFO
GetVersionEx oviInfo
If oviInfo.dwMajorVersion >= 5 And VER_PLATFORM_WIN32_NT Then
IsWin2KXP = True
End If
End Function
oviInfo.dwMajorVersion >= 5 :
en effet sous XP et 2000 ca retourne True, sous Millenium je sais pas.
cs_Cendra
Messages postés56Date d'inscriptionmardi 27 août 2002StatutMembreDernière intervention 4 février 20081 3 sept. 2002 à 22:07
serai bien d'ajouter ME et XP ...
acidtoxik comment on fait pour determiner l'os par la base de registre ?
Fufroma
Messages postés1Date d'inscriptionsamedi 6 juillet 2002StatutMembreDernière intervention 6 juillet 2002 6 juil. 2002 à 16:03
et pour windows 2000 ????
en plus avec 2k y faut faire la diffférence entre pro, adv et srv !
acidtoxik
Messages postés28Date d'inscriptiondimanche 12 mai 2002StatutMembreDernière intervention 2 janvier 2008 12 mai 2002 à 17:13
pas mal mais yavais plus simple t'allais lire dans la base de registre la version et pis voila !!!
12 déc. 2003 à 19:35
Public Function IsWin2KXP() As Boolean
Dim oviInfo As OSVERSIONINFO
GetVersionEx oviInfo
If oviInfo.dwMajorVersion >= 5 And VER_PLATFORM_WIN32_NT Then
IsWin2KXP = True
End If
End Function
oviInfo.dwMajorVersion >= 5 :
en effet sous XP et 2000 ca retourne True, sous Millenium je sais pas.
3 sept. 2002 à 22:07
acidtoxik comment on fait pour determiner l'os par la base de registre ?
6 juil. 2002 à 16:03
en plus avec 2k y faut faire la diffférence entre pro, adv et srv !
12 mai 2002 à 17:13
13 nov. 2001 à 10:04
Bon courage :o)