détecter Vista en VB6

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : détecter Vista en VB6

bmag

Comment faire pour détecter en VB6 le système d'exploltation VISTA .
La focntion ENVIRON("OS" ) ramène dans les deux cas la valeur Windows_NT

Par ailleur, comment se fait-il que la police de caractère du forum est tout à coup si minuscule (quasi illisible) ? Et le premier qui me dit de chager la taille du texte a évidement perdu.

Publicité

jpcheck

Pioupiou

salut,
essaie ca, pour voir si une des réponses peut t'aiguiller :

Code :

Dim varEnv As Variant, intI As Integer
Dim strMessage As String, v As Variant
' Liste des variables d'environnement
varEnv = Array("ALLUSERSPROFILE", "APPDATA", "COMPUTERNAME", "HOMEDRIVE", "HOMEPATH", _
"LOGONSERVER", "NUMBER_OF_PROCESSORS", "OS", "PATH", "PATHEXT", "PROCESSOR_ARCHITECTURE", _
"PROCESSOR_IDENTIFIER", "PROCESSOR_LEVEL", "PROCESSOR_REVISION", "PROMPT", _
"SYSTEMDRIVE", "SYSTEMROOT", "TEMP", "TMP", "USERDOMAIN", "USERNAME", "USERPROFILE" )
' Lecture de toutes les valeurs
strMessage = ""
For Each v In varEnv
strMessage = strMessage & v & " = " & Environ(v) & vbCrLf
Next
' Affichage final
MsgBox strMessage

karlkox

GetVersionEx (plus d'info )

bmag

Merci pour vos réponses.

GetVersionEx me semble difficile à mettre en oeuvre sous VB6. Par contre, même si ça n'est pas très propre, ENVIRON("ALLUSERPROFILE" ) répond différement sur vista puisque le dossier "ProgramData" est propre à Vista.

jpcheck

Pioupiou

tu peux faire un instr(ENVIRON("ALLUSERPROFILE" ),"ProgramData" ) alors ?

bmag

Oui, c'est en effet ce que je vais faire.

Message cité 1 fois

breizhbugs

Connais pas le vb6 alors je sais pas si c'est facile mais le nom de l'OS semble ecrit dans la base des registres sous HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\productname

tegu

GetVersionEx n'est pas difficile à mettre en oeuvre en VB6 pour peu qu'on s'y connaisse un peu en API Windows sous VB6.

Il suffit de déclarer ces lignes :

Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (LpVersionInformation As OSVERSIONINFO) As Long

et de l'exploiter comme ceci par exemple :

Public Function GetWinPlatform() As Long
Dim osvi As OSVERSIONINFO

osvi.dwOSVersionInfoSize = Len(osvi)
If GetVersionEx(osvi) = 0 Then
Exit Function
End If
GetWinPlatform = osvi.dwPlatformId
End Function

bjone

Insert booze to continue

bmag a écrit :

Oui, c'est en effet ce que je vais faire.

faut pas faire ça malheureux, ça va partir en sucette dès que le ALLUSERPROFILE pointera ailleurs.

si le système expose des variables, c'est pour éviter d'avoir des applications qui partent en sucette dès que la variable change....

FORUM HardWare.fr

Programmation

VB/VBA/VBS

détecter Vista en VB6

Sujets relatifs
Comment détecter un débordement sur les multiplications d'entiers en C	[VB6] Decompresser un fichier ZIP
VB6 et Winsock	Problème activeperl sous vista
[Resolu] Parcourir tout les fichier d'un dossier et detecter des mots	exporter une bd access en fichier texte en vb6
[RESOLU] Débutant VB - Ouvrir une image sous VB6	VB6 : Imprimer un document avec wordpad
[VB6] : Supprimer le titre et numéro de page d'un fichier texte	Problème d'installation de Visual C++ sous Vista
Plus de sujets relatifs à : détecter Vista en VB6

Page générée en 0.036 secondes