Справочная информация
При выборе из меню ? команды Справка появляется справочная информация — правила игры (рис. 15.14).
Рис. 15.14. Окно
справочной информации
приведена в листинге 15.7.
Примечание
Перед непосредственным созданием процедуры, обеспечивающей вывод справочной информации, в главную форму необходимо добавить компонент HhOpen.
Листинг 15.7.
Вывод справочной информации
HelpFile : string; // файл справки
HelpTopic : string; // раздел справки
pwHelpFile : PWideChar; // файл справки (указатель на строку WideChar)
pwHelpTopic : PWideChar; // раздел (указатель на строку WideChar) begin
HelpFile := 'saper.chm'; HelpTopic := 'saper_02.htm';
// выделить память для WideChar-строк GetMem(pwHelpFile, Length(HelpFile) * 2); GetMem(pwHelpTopic, Length(HelpTopic)*2);
// преобразовать ANSI-строку в WideString-строку
pwHelpFile := StringToWideChar(HelpFile, pwHelpFile, MAX_PATH*2);
pwHelpTopic := StringToWideChar(HelpTopic, pwHelpTopic,32);
// вывести справочную информацию
Form1.Hhopen1.OpenHelp(pwHelpFile, pwHelpTopic);
end;