Вниз
Скачать: CL | DM;

Как можна открыть файл с расширением (*.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;



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c
1-61996
kosha80
2003-12-08 05:39
2003.12.19
Вот рабочий стол это тот же


1-62158
MuxauJl
2003-12-06 16:48
2003.12.19
Помогите!


1-62147
SergeyX
2003-12-06 15:48
2003.12.19
Проблемма с IInternetProtocol


1-62011
Piero
2003-12-06 18:14
2003.12.19
Масштабирование TImage


3-61924
Russko
2003-11-27 12:24
2003.12.19
Table is busy!!!




   Наверх