1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Const HKEY_CLASSES_ROOT = &H80000000
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Sub Commande27_Click()
Dim Ret As Long
Dim lResult As Long
Dim RetourType As Long
Dim buffer As String
Dim BufferSize As Long
RegOpenKey HKEY_CLASSES_ROOT, "http\Shell\Open\Command", Ret 'Ouverture
lResult = RegQueryValueEx(Ret, "", 0, RetourType, ByVal 0, BufferSize)
If lResult = 0 Then
buffer = String(BufferSize, Chr$(0))
lResult = RegQueryValueEx(Ret, "", 0, 0, ByVal buffer, BufferSize)
End If
MsgBox buffer
RegCloseKey Ret 'Fermeture
End Sub |
Partager