Savoir si le framework.NET installé?

cybermax62
Messages postés
54
Date d'inscription
mercredi 9 juin 2004
Statut
Membre
Dernière intervention
10 janvier 2006
- 31 août 2004 à 13:58
cs_EBArtSoft
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
- 31 août 2004 à 16:16
c dans le topic.
quel est le code pour savoir si le framework est installé et sa version ?
merci...

1 réponse

cs_EBArtSoft
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
31 août 2004 à 16:16
En VB6 :

Option Explicit

Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function GetCORVersion Lib "mscoree" (ByVal pbuffer As Long, ByVal cchBuffer As Long, dwlength As Long) As Long

Private Sub Command1_Click()
    Dim vVer As String
    If GetFrameworkVersion(vVer) Then
        MsgBox "Framework .NET " & vVer, vbInformation
    Else
        MsgBox "Framework .NET n'est pas installé", vbInformation
    End If
End Sub

Private Function GetFrameworkVersion(ByRef Version As String) As Boolean
    Dim vSize   As Long
    Dim vHandle As Long
    vHandle = LoadLibrary("mscoree.dll")
    If vHandle Then
        vSize = 256
        Version = Space(vSize)
        If (GetCORVersion(StrPtr(Version), vSize, vSize) = 0) Then
            Version = Left$(Version, vSize - 1)
            GetFrameworkVersion = True
        End If
        FreeLibrary vHandle
    End If
End Function


@+

E.B.
0