Открыть .html в браузере

[Swarog]

Имеем файл.html
Как открыть его в а)IE в частности; и б)вообще в браузере, который стоит по умолчанию?

[Хой]

shell "IEXPLORE" & "\my.html"

[Swarog]

Ы! Так дело в ГРЕБАНЫХ СКОБКАХ!?
Я писал так: Shell("iexplore" & filename)
Спасибо.

[ehyloz]

у меня тоже была такая проблема , только с мп3 плейером.
поискал по АПИ функциям ...
покапался в реестре ...
вобщем это делается так (метод Илоны Довыдовой ):
показываю на примере Оперы ( мой дефаулт браузер)

1.ищешь в HKEY_CLASSES_ROOT ветку ".html"
2.читаешь значение по умолчанию ( у меня Opera.HTML)
3.читаешь HKEY_CLASSES_ROOT\Opera.HTML\shell\open\command значение по умолчанию.

получил ? (у меня "C:\Program Files\Opera7\opera.exe" "%1" )
теперь это значение обработай до пристойного вида ( у меня "C:\Program Files\Opera7\opera.exe")
теперь как Хой учил:

Код: Выделить всё

shell "обработаное значение" & "\my.html"

незабудь об ошибках (вдруг не найдётся .html и т.д.)

зы. под рукой примера нет, всё по памяти ...

[Swarog]

ehyloz, большое спасибо!
То, что нужно.

[Хой]

...
теперь как Хой учил:

Не ребят, ну вы прям смутили...
Для функции Shell имеется ещё пара констант:
1. vbHide - запускает приложение и уберает его из виду (скрывает)
2. vbMaximizedFocus - запускает приложение, разворачивает его и передаёт ему фокус
3. vbMinimizedFocus - запускает приложение, сворачивает его и передаёт фокус
4. vbMinimizedNoFocus - запускает приложение, сворачивает его и убирает с него фокус
5. vbNormalFocus - запускает приложение в нормальном режиме и передаёт ему фокус
6. vbNormalNoFocus - запускает приложение в нормальном режиме и убирает с него фокус.
---------------------------
а вообще-то это, наверно, 10-й топик на эту тему, и
я десятый раз на него отвечаю...

[GSerg]

... и так будет до тех пор, пока не пофиксят поиск ...

[Хой]

... и так будет до тех пор, пока не пофиксят поиск ...

О нет.... меняж на всех нехватит.....а-а-а-а-а-а-а-а-а-а!!!!!

[ehyloz]

вот блин...
вечно что-нибудь забуду...
а неподскажите где это у вас тут про деф. браузер ?

[ehyloz]

вот наткнулся я тут на пример один и ошалел, как просто всё это ...

Код: Выделить всё

' в модуле
Public 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) As Long
Public Const SW_SHOWNORMAL = 1

'в форме
Private Sub Command1_Click()
Call ShellExecute(0&, vbNullString, "http://bbs.vbstreets.ru", vbNullString, "c:\", SW_SHOWNORMAL)
End Sub