• Fuentes

 #450602  por Pink
 27 Jul 2014, 17:33
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
 #450753  por MaggicianCOr
 28 Jul 2014, 11:16
Gracias
 #450755  por Blau
 28 Jul 2014, 11:27
Buen trabajo