استفاده از فایل chm در دلفی [بایگانی]

mohamad6

پنج شنبه 12 تیر 1382, 10:19 صبح

سلام delphiassistant جان
یکی دوبار این سئوال رو پرسیدم ولی کسی جواب نداد این بار از شما می‌پرسم :
در دلفی چطوری می‌شه از فایلهایی که با پسوند chm ایجاد کرده‌ایم برای help استفاده کنیم ؟
فایل chm رو در پنجره application ودر قسمت helpFile به پروژه اضافه می‌کنم ولی وقتی برنامه رو اجرا می‌کنم با زدن کلید F1 نمی‌توانم فایل help رو ببینم.

مهدی کرامتی

پنج شنبه 12 تیر 1382, 11:53 صبح

<div dir=ltr>
Problem/Question/Abstract:
Do you long to move from WinHelp to HTML Help in your programs? The unit below converts all WinHelp calls to HTML Help enabling you to upgrade with the minimum of effort.

Answer:

Save this unit to a directory on your Environment Options|Library|Library Path and add to your project uses clause, all WinHelp requests will now be translated to HTML Help. Specify your *.chm file in the Project Options|Application|Help file setting. Context sensitive help will work as normal, use TApplication.HelpCommand to send help commands. eg. Application.HelpCommand(HELP_KEY, DWORD(keyData))

unit dmHTMLHelp;
{Unit to translate WinHelp requests into HTML Help and call the API.}
{Written by Dave Murray, October 2001. dmurray@worldmark.com}
{NOTES:
This unit assigns its own handler to the Application.OnHelp event.
DO NOT assign your own handler to Application.OnHelp.
Also, this unit ignores any form's HelpFile property. (Delphi 4+)}

interface

uses
Windows, Messages, SysUtils, Forms;

const
{commands to pass to HtmlHelp(), see HTML Help API Reference}
HH_DISPLAY_TOPIC = $0000; {open help topic}
HH_HELP_FINDER = $0000; {backwards compatibility,use HH_DISPLAY_TOPIC instead}
HH_DISPLAY_TOC = $0001; {select Contents tab in nav pane}
HH_DISPLAY_INDEX = $0002; {select Index tab + search for keyword}
HH_DISPLAY_SEARCH = $0003; {select Search tab in nav pane}
HH_SET_WIN_TYPE = $0004;
HH_GET_WIN_TYPE = $0005;
HH_GET_WIN_HANDLE = $0006;
HH_ENUM_INFO_TYPE = $0007;
HH_SET_INFO_TYPE = $0008;
HH_SYNC = $0009;
HH_RESERVED1 = $000A; {not currently implemented}
HH_RESERVED2 = $000B; {not currently implemented}
HH_RESERVED3 = $000C; {not currently implemented}
HH_KEYWORD_LOOKUP = $000D;
HH_DISPLAY_TEXT_POPUP = $000E; {display string resource/text in a popup}
HH_HELP_CONTEXT = $000F; {display topic for context number}
HH_TP_HELP_CONTEXTMENU = $0010; {text popup help, same as HELP_CONTEXTMENU}
HH_TP_HELP_WM_HELP = $0011; {text popup help, same as HELP_WM_HELP}
HH_CLOSE_ALL = $0012; {close all windows opened by caller}
HH_ALINK_LOOKUP = $0013; {ALink version of HH_KEYWORD_LOOKUP}
HH_GET_LAST_ERROR = $0014; {not currently implemented}
HH_ENUM_CATEGORY = $0015;
HH_ENUM_CATEGORY_IT = $0016;
HH_RESET_IT_FILTER = $0017;
HH_SET_INCLUSIVE_FILTER = $0018;
HH_SET_EXCLUSIVE_FILTER = $0019;
HH_INITIALIZE = $001C;
HH_UNINITIALIZE = $001D;
HH_PRETRANSLATEMESSAGE = $00FD;
HH_SET_GLOBAL_PROPERTY = $00FC;

function HtmlHelp(hwndCaller: THandle; pszFile: PChar; uCommand: cardinal; dwData:
longint): THandle; stdcall;

implementation

function HtmlHelp(hwndCaller: THandle; pszFile: PChar; uCommand: cardinal; dwData:
longint): THandle; stdcall; external 'hhctrl.ocx' name 'HtmlHelpA'; {external API call}

type
TdmHTMLHelp = class(TObject) {encapsulates function}
function ApplicationHelp(Command: Word; Data: Longint; var CallHelp: Boolean):
Boolean;
end; {TdmHTMLHelp..}

function TdmHTMLHelp.ApplicationHelp(Command: Word; Data: Longint; var CallHelp:
Boolean): Boolean;
{translates WinHelp commands to HTMLHelp commands + calls API}
var
HCommand: word;
begin
{make sure VCL doesn't activate WinHelp + function succeeds}
CallHelp := false;
result := true;
{translate WinHelp > HTMLHelp}
case Command of
HELP_CONTENTS:
begin
HCommand := HH_DISPLAY_TOC;
Data := 0;
end; {HELP_CONTENTS..}
HELP_CONTEXT: HCommand := HH_HELP_CONTEXT;
HELP_CONTEXTPOPUP: HCommand := HH_HELP_CONTEXT;
HELP_FINDER: HCommand := HH_DISPLAY_TOPIC;
HELP_KEY: HCommand := HH_DISPLAY_INDEX;
HELP_QUIT:
begin
HCommand := HH_CLOSE_ALL;
Data := 0;
end; {HELP_QUIT..}
else
begin {default}
HCommand := HH_DISPLAY_TOPIC;
Data := 0;
end; {default..}
end; {case Command..}
{call HTML Help API}
HtmlHelp(Application.MainForm.Handle, PChar(Application.HelpFile), HCommand, Data);
end; {function TdmHTMLHelp.ApplicationHelp}

var
HTMLHelper: TdmHTMLHelp;

initialization
{create object + assign event handler}
HTMLHelper := TdmHTMLHelp.Create;
Application.OnHelp := HTMLHelper.ApplicationHelp;
finalization
{free event handler + object}
Application.OnHelp := nil;
HTMLHelper.Free;
end.</div>

mopaliz

پنج شنبه 21 بهمن 1389, 10:56 صبح

اضافه كردن فايل hlp خودم در كنار فايلهاي help دلفي 7
با سلام
من يك فايل help دارم ( مي تونه از نوع hlp.* و يا chm.* )
مي خوام اين فايلهاي ايجاد شده توسط من در كنار فايلهاي help دلفي 7 قرار بگيره و در زمان جستجوي‌ لغت توي محيط دلفي ( منظورم خوده محيط دلفي نه برنامه هاي كه با دلفي مي سازيم ) محتويات فايل من رو نيز جستجو كند.
(در ضمن اگر روزگاري مجددا دلفي 7 رو خواستم نصب كنم بتونم به راحتي فايلها مو اضافه كنم )
ممنون مي شم اگر راهنماي كنيد.
mopaliz_89_04_15

سلام delphiassistant جان
چند ماهي مي شه اين سوال رو پرسیدم ولی کسی تا بحال جواب نداده این بار از شما می‌پرسم :
mopaliz_89_11_15

Felony

جمعه 22 بهمن 1389, 06:27 صبح

اضافه كردن فايل hlp خودم در كنار فايلهاي help دلفي 7
با سلام
من يك فايل help دارم ( مي تونه از نوع hlp.* و يا chm.* )
مي خوام اين فايلهاي ايجاد شده توسط من در كنار فايلهاي help دلفي 7 قرار بگيره و در زمان جستجوي‌ لغت توي محيط دلفي ( منظورم خوده محيط دلفي نه برنامه هاي كه با دلفي مي سازيم ) محتويات فايل من رو نيز جستجو كند.
(در ضمن اگر روزگاري مجددا دلفي 7 رو خواستم نصب كنم بتونم به راحتي فايلها مو اضافه كنم )
ممنون مي شم اگر راهنماي كنيد.
mopaliz_89_04_15

سلام delphiassistant جان
چند ماهي مي شه اين سوال رو پرسیدم ولی کسی تا بحال جواب نداده این بار از شما می‌پرسم :
mopaliz_89_11_15

OpenToolsAPI رو در گوکل جست و جو کنید .