Mauvaise fermeture a cause du .chm

cs_sebV Messages postés 107 Date d'inscription mardi 20 août 2002 Statut Membre Dernière intervention 15 octobre 2004 - 20 août 2002 à 15:08
dany108 Messages postés 71 Date d'inscription mardi 29 janvier 2002 Statut Membre Dernière intervention 6 janvier 2011 - 10 sept. 2002 à 23:54
Je lance un fichier d'aide (aide.chm) depuis mon progr, masi quand je fait tourné le progr, que je lance l'aide, et que ensuite je ferme tout, je m'apercoi que le progr est encore charger (en faisant Ctrl+Alt+Suppr ou en voulant supr le .exe)

Voici le code utiliser :

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

Private Sub mnuAide_Click()
If Dir(App.Path & "\aide.chm") <> "" Then
ShellExecute Form1.hwnd, vbNullString, "aide.chm", vbNullString, App.Path, 1
End If
End Sub

Merci d'avance pour l'aide que vous m'apporterez

Sébastien VALAT

2 réponses

cs_processus Messages postés 360 Date d'inscription vendredi 24 août 2001 Statut Membre Dernière intervention 9 juillet 2008 3
20 août 2002 à 17:39
Ouhlala, malheureux!!!, comme c'est bien moche comme procédure pour ouvrir un .chm !! Alors qu'il existe déjà une fnction toute prête, et bien propre de surcroit !

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

==============
Site Web de JDPROG
Présentation de MP3 Index
Logiciel d'indexation de fichier MP3

http://jdprog.fr.st
0
dany108 Messages postés 71 Date d'inscription mardi 29 janvier 2002 Statut Membre Dernière intervention 6 janvier 2011 1
10 sept. 2002 à 23:54
Il faut déclarer le fichier chm comme étant un fichier d'aide : App.HelpFile = Chemin & MonFichier.chm

Si on appuie sur F1 ça marche.
Pour lancer le fichier depuis un bouton, j'utilise SendKeys "{F1}" et ça marche aussi.
Simple, pas d'API. Cool quoi !!
0
Rejoignez-nous