Código: Seleccionar todo
Private Const ASSOCSTR_EXECUTABLE = 2
Private Declare Function AssocQueryStringW Lib "shlwapi.dll" (ByVal flags As Long, ByVal str As Long, ByVal pszAssoc As Long, ByVal pszExtra As Long, ByVal pszOut As Long, ByRef pcchOut As Long) As Long
Private Function GetDefaultBroswer() As String
Dim sCadena As String
Dim iBytes As Long
Dim hret As Long
hret = AssocQueryStringW(0, ASSOCSTR_EXECUTABLE, StrPtr("http"), 0, 0, iBytes)
If hret Then
sCadena = Space(iBytes)
hret = AssocQueryStringW(0, ASSOCSTR_EXECUTABLE, StrPtr("http"), 0, StrPtr(sCadena), iBytes)
GetDefaultBroswer = sCadena
End If
End Function
Private Sub Form_Load()
MsgBox (GetDefaultBroswer())
End Sub
Saludos