Discussion :

[idaram]

j'ai suivi ce qui a été dit dans : http://svaillant.developpez.com/delp...?page=page_III concernant l'appel d'aide d'un fichier .chm;
j'ai intégré les unités hh.pas, hh_funcs.pas et D6OnHelpFix.pas et j'ai implémenté la fonction helphook comme ca été dit;
cela marche trés bien sur un système 32 bits;
mais comment faire pour un système 64 bits?
ou doit je modifier? dans la fonction helphook?
ou y a t'il autre chose a faire (unité a intégrer..!)

[Papy214]

Quel problème cela pose-t-il ?
Un système 64 bits prend en charge les appels en 32 bits.

Mais je n'ai peut-être pas saisi le vrai problème ?

[idaram]

la fonction par example :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

HtmlHelp(0, PChar('MonFichierHelp.chm'), HH_DISPLAY_TOC, 0);

fonctionne sous XP 32 bits mais sous Windows seven 64 bits elle génère un message d'erreur type violation d'accés;
voila ce qui a été dit dans le tutoriel dont l'adresse est dans mon 1er message:
///Implémentez la fonction HelpHook de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
function TfrmMain.HelpHook(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;
begin
  CallHelp := False; //Désactivation des appels à l'aide 16-bit
  //Test sur le paramètre Command qui permet de savoir le type d'aide à ouvrir
  if (Command in [Help_Context]) then
    HtmlHelp(0, PChar(mHelpFile), HH_HELP_CONTEXT, Data) //Ouverture de l'aide
  else
    CallHelp := true; //En cas d'erreur, réactivation des appels à l'aide 16-bit
  result := true;
end;

Votre fonction créée, il faut maintenant rediriger tous les appels à l'aide 16-bit vers l'aide 32-bit. Pour cela, placez-vous sur la form principale (frmMain) et implémenter la procédure FormCreate :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  //Redirection des appels à l'aide 16-bit vers notre gestionnaire d'évènement
  Application.OnHelp := HelpHook;
  //Recherche du chemin du fichier d'aide
  mHelpFile := ExtractFilePath(ParamStr(0)) + 'sample.chm';
  mHelpFile := ExpandFileName(mHelpFile);
  if not FileExists(mHelpFile) then //Déclenché si le fichier d'aide est introuvable
    ShowMessage('Le fichier d''aide est introuvable !');
  //Vérification de la version de HTML Help installé dans le système
  if (hh.HHCtrlHandle = 0) 
     or (hh_funcs._hhMajVer < 4)
     or ((hh_funcs._hhMajVer = 4) and (hh_funcs._hhMinVer < 73)) then
    ShowMessage('Vous devez installer la version 1.2 ou supérieure de Microsoft HTML Help !');
end;

///
voila donc je sais pas si le problème réside dans ces lignes de code!

[gaby277]

Bonjour,

Une demo complète ici : http://delphi.developpez.com/telecha...ation-a-Delphi
Il y a :
- la création de l'aide chm qui n'est l'objet de la question,
- le code complet pour l'intégration et l'appel de de l'aide pour D7 et XE,
- en plus le fichier d'aide de l'appli détaille tout cela tout cela.

Quelques copier / coller devraient permettre de résoudre le problème

PS : L'appli a été testée notamment sous Windows 8.1 64 bits