Справочная информация

// выбор из меню ? команды Справка
 
procedure TForm1.N3Click(Sender: TObject);
 
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;