Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1559 connectés 

  FORUM HardWare.fr
  Programmation

  [VB6] Détection Windows XP 2000 NT / Windows Me 98 95

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VB6] Détection Windows XP 2000 NT / Windows Me 98 95

n°99477
ceyquem
E falso sequitur quodlibet
Posté le 12-02-2002 à 16:57:33  profilanswer
 

Bonjour,
 
comment peut-on (API ou autre) savoir quel type d'os est utilisé à savoir entre deux catégories :
 
les NT :
2000
XP
 
les autres :
Me
98
95
 
Je vous remercie de votre aide.
 
a+!

mood
Publicité
Posté le 12-02-2002 à 16:57:33  profilanswer
 

n°99507
ceyquem
E falso sequitur quodlibet
Posté le 12-02-2002 à 17:22:59  profilanswer
 

Je viens en effet de trouver ceci :
-----------------------------------
 
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type
Private Sub Form_Load()
    Dim OSInfo As OSVERSIONINFO, PId As String
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'KPDTeam@Allapi.net
    'Set the graphical mode to persistent
    Me.AutoRedraw = True
    'Set the structure size
    OSInfo.dwOSVersionInfoSize = Len(OSInfo)
    'Get the Windows version
    Ret& = GetVersionEx(OSInfo)
    'Chack for errors
    If Ret& = 0 Then MsgBox "Error Getting Version Information": Exit Sub
    'Print the information to the form
    Select Case OSInfo.dwPlatformId
        Case 0
            PId = "Windows 32s "
        Case 1
            PId = "Windows 95/98"
        Case 2
            PId = "Windows NT "
    End Select
    Print "OS: " + PId
    Print "Win version:" + str$(OSInfo.dwMajorVersion) + "." + LTrim(str(OSInfo.dwMinorVersion))
    Print "Build: " + str(OSInfo.dwBuildNumber)
End Sub
 
--------------------------
Question : quel est le résultat sous Windows 2000 et XP ???
il faudrait que je sois capable de distinguer les deux types d'os :
95/98/Me et 2000/xp

n°100431
ceyquem
E falso sequitur quodlibet
Posté le 14-02-2002 à 16:49:07  profilanswer
 

up!

n°100631
Ventilo
Ventilo? Depuis 1998!
Posté le 15-02-2002 à 05:46:26  profilanswer
 

Sous WindowsXP pro:
OS: Windows NT
Win Version: 5.1
Build: 2600

n°100991
ceyquem
E falso sequitur quodlibet
Posté le 15-02-2002 à 16:31:16  profilanswer
 

ça veut donc dire que si on a : OS = Windows NT on aura du 2000 ou xp et sinon on aura 95/98...
 
 
Merci beaucoup !

n°101024
MAX_BAUD
Posté le 15-02-2002 à 17:38:03  profilanswer
 

tu peux te servir de regedit pour aller chercher ce que tu veux
avecles fonctions  RegOpenKeyEx (HKEY_USERS , param.CheminVersion, 0, KEY_QUERY_VALUE, &hKey);...
c'est assez simple!!!

n°101038
ceyquem
E falso sequitur quodlibet
Posté le 15-02-2002 à 18:01:46  profilanswer
 

où pourrais-je trouver les informations sur l'OS (nom, type : NT/Normal, version) dans la base de registres ???


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

  [VB6] Détection Windows XP 2000 NT / Windows Me 98 95

 

Sujets relatifs
[VB6] Brêle cherche tutorial[Java] Exception in thread "main" sous Windows et pas sous linux ???
Access 97 vs 2000 vs Win 98 vs Win XP[ Editeur ]Quel est votre éditeur de code préféré pour windows ?
Programmation windows[VB6] Interprétation d'une chaîne comme fonction??? exemple: "sin(x)"
[Java] détection JRE et auto insall[C++] commenf faire pour faire afficher une image + CDIALOG Windows ?
[VB6] Impression d'un code barre[VB6] comment utiliser des requêtes SQL insert, update ???
Plus de sujets relatifs à : [VB6] Détection Windows XP 2000 NT / Windows Me 98 95


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR