Как можна открыть файл с расширением (*.chm)?

← →
Marat_D (2003-12-07 15:14) [0]

--
Проблема МАСТЕРА в том, что нужно в программе предусмотреть Help. Я Help делаю в HTML Help Workshop. Как этот файл можно вызвать из программы, т.е. например кликаешь по Button-у и появляется (открывается) этот файл с расширением (*.chm).Какие есть API функции?
--
{
В Delphi в свойствах проекта Shift+Ctr+F11 -> Application -> есть графа Help Files (*.hlp) - можно ли вставить мой файл с расширением (*.chm) - ответ, наверное, можно (а может и нет), но как его вызвать - вот проблема...???... - но это не основной вопрос... основной вопрос выше...
}

← →
TUser (2003-12-07 19:09) [1]

Недавно такой вопрос обсуждался. Набери chm в поиске по форуму - найдешь. Там дали какую-то ссылку.

← →
Ломброзо (2003-12-07 19:14) [2]

HtmlHelp
Application.OnHelp

← →
Marat_D (2003-12-07 22:06) [3]

Проблема... но я решил её, через пару минут (вспомнил функцию ShellExecute :)) как опубликовал сообщение, даже не искал по форуму (хотя когда поискал - решения было похоже):
ShellExecute(Form1.Handle,"open","Help.chm",Nil,Nil,SW_SHOW);
---
Только есть еще один вопрос. Как сделать так чтобы файл, который я открыл с помощью фунуции ShellExecute, при закрыти формы закрылся, подскажите с помощью какой API (или обычной) функции это можно сделать?
---

← →
Ломброзо (2003-12-07 22:42) [4]

Бывают решения красивые и некрасивые :)

Впрочем, дарю:

type
lpfHelp = function (hwndCaller: THandle; pszFile: PChar; uCommand: UINT; dwData: DWORD): THandle; stdcall;

procedure SimpleHelp(const TopicName: string);

....

procedure SimpleHelp(const TopicName: string);
var Command: string;
pH: HModule;
pFunc: lpfHelp;
begin
Command := ExtractFilePath(Application.ExeName) + "help\VW.chm::/" + pFiles.Values[TopicName];
pH := LoadLibrary("Hhctrl.ocx");
@pFunc := GetProcAddress(pH, PChar("HtmlHelpA"));
pFunc
(
Application.Handle,
PChar(Command),
0,
0
);
end;

Как можна открыть файл с расширением (*.chm)? Найти похожие ветки