Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jak uruchomić plik CHM przez VB? PILNE!
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002
Jak uruchomić plik CHM przez VB? PILNE!

Mam taki problem. chciałbym z poziomu VB uruchomić plik pomocy CHM, ale tak, żeby działał pod WSZYSTKIMI Windowsami! Czy jest na to jakiś sposób? Bardzo prosśe o szybką odpowiedź. Z góry dzięki.


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


22-12-2002 20:10
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

Najprościej:

shell "start.exe c:\program\plik.chm"

niestety, ale ma to wady:
1) w Windowsach NT/2000 nie działa bo te windowsy nie mają pliku start.exe w c:\windows\command

2) Jak ktoś nie ma zainstalowanego programu do obsługi tych plików to pojawi się okno z prośbą o pokazanie programu który może otwierać pliki chm (ale pliki chm są obsługiwane chyba od windowsa 95)


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

25-12-2002 15:42
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002

Dzięki, ale ten sposób znam. I właśnie z wymienionych przez Ciebie powodów go nie wybrałem. Po za tym, ten sposób ma jeszcze jedną wadę: jeśli jest długa ścieżka dostępu do pliku, to program i tak CHM'a nie odpali.
Znalzłem więc (API-guide) odpowiednią funkcję API-działa niezawodnie i zawsze:

Const HH_DISPLAY_TOPIC = &H0
Const HH_SET_WIN_TYPE = &H4
Const HH_GET_WIN_TYPE = &H5
Const HH_GET_WIN_HANDLE = &H6
Const HH_DISPLAY_TEXT_POPUP = &HE  ' Display string resource ID or text in a pop-up window.
Const HH_HELP_CONTEXT = &HF        ' Display mapped numeric value in  dwData.
Const HH_TP_HELP_CONTEXTMENU = &H10 ' Text pop-up help, similar to WinHelp's HELP_CONTEXTMENU.
Const HH_TP_HELP_WM_HELP = &H11    ' text pop-up help, similar to WinHelp's HELP_WM_HELP.
Const HH_CLOSE_ALL = &H12
Private Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail:
    Dim hwndHelp As Long
    'The return value is the window handle of the created help window.
    hwndHelp = HtmlHelp(hWnd, "myfile.chm", HH_DISPLAY_TOPIC, 0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    HtmlHelp Me.hWnd, "", HH_CLOSE_ALL, 0
End Sub

Ja uważam, że ten sposób jest lepszy, a jak uważają inny bywalcy VB Forum?


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


25-12-2002 17:57
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1