Bonjour à toutes et à tous,

Pour celui que cela intéresse, Innosetup lorsqu'il crée l'icone sur le bureau, cet icone est relatif à l'ouverture de l'application.

Par ce biais, l'appel de l'aide qui se trouve dans un sous dossier ne peut se faire que si dans l'application le code relate l'endroit de cette aide.

J'ai donc fait un test avec 3 boutons en gardant le même code pour InnoSetup (1er topic), et seulement les boutons 2 et 3 fonctionnent dans tous les cas de figure,

a) soit après l'install,
b) avec l'icone placé sur le bureau,
c) par le bouton démarrer,
d) directement dans le dossier créé dans ProgramFiles.

Bouton 1 =

procedure TForm1.Btest1Click(Sender: TObject);
begin
ShellExecute(0, 'open', 'Help\Aide.chm', nil, nil, SW_SHOWNORMAL);
end;

Ne fonctionne qu'avec les poins a) et d)

Bouton 2 =

procedure TForm1.Btest2Click(Sender: TObject);
var
nomi : string;
chappli : string;
begin
chappli := ExtractFilePath(Application.ExeName);
nomi := chappli+'Help\Aide.chm';
HtmlHelp(Application.Handle,PChar(nomi), //::/video.htm
      HH_DISPLAY_TOPIC, 0);
end;

Fonctionne avec les points a) à d)

Bouton 3 =

procedure TForm1.Btest3Click(Sender: TObject);
var
nomi : string;
chappli : string;
begin
chappli := ExtractFilePath(Application.ExeName);
nomi := chappli+'Help\Aide.chm';
ShellExecute(0, 'open', PChar(nomi), nil, nil, SW_SHOWNORMAL);
end;

Fonctionne avec les points a) à d)

Je cloture donc le topic, merci de votre aide à tous.

@+,

Cincap

[url]mailto:[/url]