Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ng
Fabrice wrote:
Bonjour,
Quel test peut-on réaliser pour vérifier la présence de Framework sur un PC, et ce en VB6 ?
Tout dépend du framework... Tu voir la précense de quel framework ?
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Fabrice wrote:
Bonjour,
Quel test peut-on réaliser pour vérifier la présence de Framework sur un
PC, et ce en VB6 ?
Tout dépend du framework... Tu voir la précense de quel framework ?
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Quel test peut-on réaliser pour vérifier la présence de Framework sur un PC, et ce en VB6 ?
Tout dépend du framework... Tu voir la précense de quel framework ?
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Fabrice
Bonsoir,
Il sagit de : Microsoft .NET Framework 1.0
Merci de votre intéressement et de votre question Fabrice
"ng" a écrit dans le message de news:
Fabrice wrote:
Bonjour,
Quel test peut-on réaliser pour vérifier la présence de Framework sur un PC, et ce en VB6 ?
Tout dépend du framework... Tu voir la précense de quel framework ?
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Bonsoir,
Il sagit de : Microsoft .NET Framework 1.0
Merci de votre intéressement et de votre question
Fabrice
"ng" <ng@ngsoft-fr.com> a écrit dans le message de news:
uWhVNWFuFHA.1560@TK2MSFTNGP09.phx.gbl...
Fabrice wrote:
Bonjour,
Quel test peut-on réaliser pour vérifier la présence de Framework sur un
PC, et ce en VB6 ?
Tout dépend du framework... Tu voir la précense de quel framework ?
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Merci de votre intéressement et de votre question Fabrice
"ng" a écrit dans le message de news:
Fabrice wrote:
Bonjour,
Quel test peut-on réaliser pour vérifier la présence de Framework sur un PC, et ce en VB6 ?
Tout dépend du framework... Tu voir la précense de quel framework ?
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Clive
La réponse (grace à devx.com)
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" _ (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _ ByVal samDesired As Long, phkResult As Long) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As _ Long
Const KEY_READ = &H20019 ' ((READ_CONTROL Or KEY_QUERY_VALUE Or ' KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not ' SYNCHRONIZE))
' Return True if a Registry key exists
Function CheckRegistryKey(ByVal hKey As Long, ByVal KeyName As String) As _ Boolean Dim handle As Long ' Try to open the key If RegOpenKeyEx(hKey, KeyName, 0, KEY_READ, handle) = 0 Then ' The key exists CheckRegistryKey = True ' Close it before exiting RegCloseKey handle End If End Function ' Return a Boolean value indicating whether the .NET Framework is installed ' Note: this function require the CheckRegistryKey functions Function IsDotNetFrameworkPresent() As Boolean Const HKEY_LOCAL_MACHINE = &H80000002
IsDotNetFrameworkPresent = CheckRegistryKey(HKEY_LOCAL_MACHINE, _ "SoftwareMicrosoft.NETFramework") End Function
Clive
La réponse (grace à devx.com)
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias
"RegOpenKeyExA" _
(ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As
Long, _
ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As
Long) As _
Long
Const KEY_READ = &H20019 ' ((READ_CONTROL Or KEY_QUERY_VALUE Or
' KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And
(Not
' SYNCHRONIZE))
' Return True if a Registry key exists
Function CheckRegistryKey(ByVal hKey As Long, ByVal KeyName As String)
As _
Boolean
Dim handle As Long
' Try to open the key
If RegOpenKeyEx(hKey, KeyName, 0, KEY_READ, handle) = 0 Then
' The key exists
CheckRegistryKey = True
' Close it before exiting
RegCloseKey handle
End If
End Function
' Return a Boolean value indicating whether the .NET Framework is
installed
' Note: this function require the CheckRegistryKey functions
Function IsDotNetFrameworkPresent() As Boolean
Const HKEY_LOCAL_MACHINE = &H80000002
IsDotNetFrameworkPresent = CheckRegistryKey(HKEY_LOCAL_MACHINE, _
"SoftwareMicrosoft.NETFramework")
End Function
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" _ (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _ ByVal samDesired As Long, phkResult As Long) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As _ Long
Const KEY_READ = &H20019 ' ((READ_CONTROL Or KEY_QUERY_VALUE Or ' KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not ' SYNCHRONIZE))
' Return True if a Registry key exists
Function CheckRegistryKey(ByVal hKey As Long, ByVal KeyName As String) As _ Boolean Dim handle As Long ' Try to open the key If RegOpenKeyEx(hKey, KeyName, 0, KEY_READ, handle) = 0 Then ' The key exists CheckRegistryKey = True ' Close it before exiting RegCloseKey handle End If End Function ' Return a Boolean value indicating whether the .NET Framework is installed ' Note: this function require the CheckRegistryKey functions Function IsDotNetFrameworkPresent() As Boolean Const HKEY_LOCAL_MACHINE = &H80000002
IsDotNetFrameworkPresent = CheckRegistryKey(HKEY_LOCAL_MACHINE, _ "SoftwareMicrosoft.NETFramework") End Function
Clive
Fabrice
Bonsoir,
Merci à Clive, les tests seront réalisés demain Mais aussi à tous les participants
Fabrice
"Clive" a écrit dans le message de news:
La réponse (grace à devx.com)
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" _ (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _ ByVal samDesired As Long, phkResult As Long) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As _ Long
Const KEY_READ = &H20019 ' ((READ_CONTROL Or KEY_QUERY_VALUE Or ' KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not ' SYNCHRONIZE))
' Return True if a Registry key exists
Function CheckRegistryKey(ByVal hKey As Long, ByVal KeyName As String) As _ Boolean Dim handle As Long ' Try to open the key If RegOpenKeyEx(hKey, KeyName, 0, KEY_READ, handle) = 0 Then ' The key exists CheckRegistryKey = True ' Close it before exiting RegCloseKey handle End If End Function ' Return a Boolean value indicating whether the .NET Framework is installed ' Note: this function require the CheckRegistryKey functions Function IsDotNetFrameworkPresent() As Boolean Const HKEY_LOCAL_MACHINE = &H80000002
IsDotNetFrameworkPresent = CheckRegistryKey(HKEY_LOCAL_MACHINE, _ "SoftwareMicrosoft.NETFramework") End Function
Clive
Bonsoir,
Merci à Clive, les tests seront réalisés demain
Mais aussi à tous les participants
Fabrice
"Clive" <clumb@free.fr> a écrit dans le message de news:
1126707069.616869.276490@g47g2000cwa.googlegroups.com...
La réponse (grace à devx.com)
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias
"RegOpenKeyExA" _
(ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As
Long, _
ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As
Long) As _
Long
Const KEY_READ = &H20019 ' ((READ_CONTROL Or KEY_QUERY_VALUE Or
' KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And
(Not
' SYNCHRONIZE))
' Return True if a Registry key exists
Function CheckRegistryKey(ByVal hKey As Long, ByVal KeyName As String)
As _
Boolean
Dim handle As Long
' Try to open the key
If RegOpenKeyEx(hKey, KeyName, 0, KEY_READ, handle) = 0 Then
' The key exists
CheckRegistryKey = True
' Close it before exiting
RegCloseKey handle
End If
End Function
' Return a Boolean value indicating whether the .NET Framework is
installed
' Note: this function require the CheckRegistryKey functions
Function IsDotNetFrameworkPresent() As Boolean
Const HKEY_LOCAL_MACHINE = &H80000002
IsDotNetFrameworkPresent = CheckRegistryKey(HKEY_LOCAL_MACHINE, _
"SoftwareMicrosoft.NETFramework")
End Function
Merci à Clive, les tests seront réalisés demain Mais aussi à tous les participants
Fabrice
"Clive" a écrit dans le message de news:
La réponse (grace à devx.com)
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" _ (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _ ByVal samDesired As Long, phkResult As Long) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As _ Long
Const KEY_READ = &H20019 ' ((READ_CONTROL Or KEY_QUERY_VALUE Or ' KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not ' SYNCHRONIZE))
' Return True if a Registry key exists
Function CheckRegistryKey(ByVal hKey As Long, ByVal KeyName As String) As _ Boolean Dim handle As Long ' Try to open the key If RegOpenKeyEx(hKey, KeyName, 0, KEY_READ, handle) = 0 Then ' The key exists CheckRegistryKey = True ' Close it before exiting RegCloseKey handle End If End Function ' Return a Boolean value indicating whether the .NET Framework is installed ' Note: this function require the CheckRegistryKey functions Function IsDotNetFrameworkPresent() As Boolean Const HKEY_LOCAL_MACHINE = &H80000002
IsDotNetFrameworkPresent = CheckRegistryKey(HKEY_LOCAL_MACHINE, _ "SoftwareMicrosoft.NETFramework") End Function
