Сообщество Чайников

Вопрос

Как открыть URL в браузере по умолчанию?

Ответ

Имеется форма, на форме Label1, в которую вписан URL:

Private Declare Function ShellExecute& Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long)

Private Declare Function GetDesktopWindow Lib "user32" _
() As Long

Const SW_SHOWNORMAL = 1

Private Sub Label1_Click()
Call ShellExecute(GetDesktopWindow, "Open", _
Label1.Caption, "", "c:\", SW_SHOWNORMAL)
End Sub

Иванов Виталий