В событии закрытия код не используется.
Вот код процедуры открытия справки:
Код:
procedure TForm1.N9Click(Sender: TObject);
var
HelpFile : string;
HelpTopic : string;
pwHelpFile : PWideChar;
pwHelpTopic : PWideChar;
begin
HelpFile := 'game_15_help.chm';
HelpTopic := 'what_is_it.htm';
GetMem(pwHelpFile, Length(HelpFile) * 2);
GetMem(pwHelpTopic, Length(HelpTopic) * 2);
pwHelpFile := StringToWideChar(HelpFile, pwHelpFile, MAX_PATH * 2);
pwHelpTopic := StringToWideChar(HelpTopic, pwHelpTopic, 32);
Form1.Hhopen1.OpenHelp(pwHelpFile, pwHelpTopic);
end;
Может быть, дело в нем, хотя я делал так, как показано в книге по DELPHI.
И вообще, в каких ситуациях возникает это исключение?