Lancement fichier d'aide

Bonjour JPW,
JPW a écrit :

Comment lancer un fichier d'aide sous XP?
Avec Win98, j'utilise le script:
RetVal = Shell("winhelp " & App.Path & "AIDE.HLP", 1)

Mais cela ne marche pas sous XP? Quuel est la commande XP?

Normalement, WinHelp est toujours présent sous XP, dans le répertoire
%Windir% (donc peut être un problème de path). Il y a également WinHlp32
qui se trouve dans %Windir% avec un "relais" dans %Windir%System32.

Une solution pourrait être d'utiliser ShellExecute, qui permet de
s'affranchir à la fois du nom du programme associé à une extension,
ainsi que de l'endroit où il se trouve :

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) As Long

Private Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
Dim RetVal As Long
RetVal = ShellExecute(Me.hwnd, "open", _
App.Path & "AIDE.HLP", 0&, 0&, SW_SHOWNORMAL)
End Sub


--
Cordialement,

Jacques.

Bonjour,

Puisqu'on en est à faire appel aux API, on pourra aussi jeter un coup
d'œil là :

http://www.allapi.net/apilist/WinHelp.shtml

et aussi HtmlHelp.shtml, pour un autre format d'aide.

Je note au passage que apiguide.net a aussi été piraté (je dis aussi
parce que j'ai parlé du site de JCB il n'y a pas longtemps), donc une
petite pub pour allapi ne fait pas de mal pendant qu'on y est.

Avec le critère de recherche "API Windows" ça se passe pas trop mal il
est vrai.
_____________
JPW a écrit :

Comment lancer un fichier d'aide sous XP?
Avec Win98, j'utilise le script:
RetVal = Shell("winhelp " & App.Path & "AIDE.HLP", 1)

Mais cela ne marche pas sous XP? Quuel est la commande XP?

JPW