delphi帮助文件的连接 UP有分

Question

帮助文件已经做成了chm格式的帮助文件
可是怎么样才能够连接到程序中去呢？
就是别人按F1的时候
帮助文件就会出来呢？
谢谢

Answer 1

好象vb里是用shell的，这里就不大清楚

Answer 2

那在delphi里面是怎么连接的呢？
我急
谁帮我搞定
起码给80分！！！

Answer 3

请在21:59之前告诉email。我将发送一个例子(delphi4下chm的使用)

Answer 4

OcxFileName := StringOfChar( ' ', 256);
    p := PChar( OcxFilename );
    GetSystemDirectory(p,255);
    StrCat(p,'\HHCTRL.OCX');
    HHControlInstance := LoadLibrary( P );[Error] HTMLHELP_Decl.pas(443): Left side cannot be assigned to
[Fatal Error] main.pas(36): Could not compile used unit 'HTMLHELP_Decl.pas'编译出错
帮帮忙呀
急人

Answer 5

我正在做这方面的项目，手头有D6,D7的源码，不需调用OCX，直接搞定，调用方法如下：
 //关闭 Help
  HtmlHelp( 0, '', HH_CLOSE_ALL, nil );
   //索引
  HtmlHelp( handle, AppPath+'\data\System.chm::/HelpContent\index.htm',
            HH_DISPLAY_INDEX, DWORD_PTR(PChar('关于系统')));
  //子标题
  HtmlHelp( handle, AppPath+'\data\System.chm::/HelpContent\index.htm',
            HH_DISPLAY_TOPIC, nil);
  //关键字查找
  var link: HH_AKLINK;
  begin
    link.cbStruct :=     sizeof(HH_AKLINK) ;
    link.fReserved :=    FALSE ;
    link.pszKeywords :=  'Hongyan'; //关键字
    link.pszUrl :=       nil;
    link.pszMsgText :=   nil;
    link.pszMsgTitle :=  nil;
    link.pszWindow :=    0;
    link.fIndexOnFail := TRUE ;
    HtmlHelp( handle,AppPath+'\data\System.chm',
              HH_KEYWORD_LOOKUP,
              DWORD_PTR(@link));
具体事谊可发信至[email protected].

Answer 6

同意 Hongyan_OK(梦里人) ！

Answer 7

精华区里不是有么？
uses Shellapi
ShellExecute(handle,nil,pchar('你的网址'),nil,nil,sw_shownormal);
ShellExecute(handle, "open", 'myhelp.chm', Nil, Nil, SW_SHOWNORMAL);

Answer 8

1，将form的keypreview属性设置为true
2，uses shellapi
3, 在form的onkeydown中加入对f1键的响应
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F1 then
    ShellExecute(handle, 'Open', 'd:\abc.chm', nil, nil, SW_SHOWMAXIMIZED);
end;

Answer 9

哪为大侠有空，帮忙看看http://expert.csdn.net/Expert/topic/1281/1281613.xml?temp=.121792

Answer 10

同菜鸟1，将form的keypreview属性设置为true
2，uses shellapi
3, 在form的onkeydown中加入对f1键的响应
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F1 then
    ShellExecute(handle, 'Open', 'd:\abc.chm', nil, nil, SW_SHOWMAXIMIZED);
end;

Answer 11

你按Ｆ1那是打开.hlp类型的帮助。对于.chm类型的文件要另外编程实现。不过你可以下载控件，如果需要这控件的话给出E_Mail来，我给你发过去！