Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > .chm, позиционирование на определенной теме

Автор: TheCetus 5.6.2006, 14:34

в CHM файле реализована следующая структура:
тема1
  подтема11
  подтема12
тема2
  подтема21
...

как показать файл справки, открытым на подтеме12

Автор: Rennigth 5.6.2006, 14:50

http://www.helpware.net/delphi/index.html

Добавлено @ 14:58
вообщем качни модуль, а потом вызывать функцию от туда HHContext, вообщем как-нибудь так:

Код


var
  lWindowHandle: Integer;
begin
  if FileExists(FileName) then
  begin
    lWindowHandle := HHContext(FileName, ContextId, htHHAPI);
    SetForegroundWindow(lWindowHandle);
  end;

ContextId - это ID темы.

Автор: TheCetus 6.6.2006, 09:35

я собирал chm через HtmlHelpWorkShop, где в нем можно Id темы указать?
Программа вываливается с сообщением:
HH_HELP_CONTEXT called without a [MAP] section

Автор: Rennigth 6.6.2006, 11:00

Цитата(TheCetus @ 6.6.2006, 09:35

)

тут извини, особо никогда не разбирался c chm-форматом, а проверял на chm собранном Help&Manual-ом, ID-шники мне предоставлял тех-пис.

Автор: TheCetus 6.6.2006, 12:34

Народ, кто в курсе, как эти идентификаторы запихать в chm ?

Автор: davandr 6.6.2006, 23:05

Попробуй HelpMan3 - программку для создание хэлпов разлчных форматов - бомба.

Автор: TheCetus 7.6.2006, 09:45

Нашел!
через HtmlHelpWorkShop тоже можно сделать, в [aliases] прописываешь соответствие файл - строковый идентификатор
в секции [map] строковый идентификатор - числовой идентификатор.
Затем эти числовые идентификаторы используются для вызова через HtmlHelpA
вот пример как через Delphi показать .chm

Код


function ShowCHMHelp(hwndCaller: HWND; pszFile: PChar; uCommand: Integer;
  dwData: DWORD): HWND; stdcall; external 'hhctrl.ocx' name 'HtmlHelpA';

procedure ShowHelpContents(const AHelpFileName: string);
const
  HH_DISPLAY_TOC = $0001;
begin
  try
    ShowCHMHelp(Application.Handle, PChar(AHelpFileName), HH_DISPLAY_TOC, 0);
  except
    raise Exception.Create('Ошибка справочной подсистемы');
  end;
end;

procedure ShowHelpContent(const AHelpFileName: string; AIndex: integer);
const
  HH_HELP_CONTEXT = $000F;
begin
  try
    ShowCHMHelp(Application.Handle, PChar(AHelpFileName), HH_HELP_CONTEXT,
      AIndex);
  except
    raise Exception.Create('Ошибка справочной подсистемы');
  end;
end;