在delphi中调用*.chm帮助文档,它说*.chm不是帮助文档文件或或文件被破坏的错误.
怎么办????
怎么办????
解决方案 »
- 求Delphi2006的下载地址?BT种子或直接的下载链接?
- oracle 数据库里如何实现先查询表B里的记录是否已经在表A中存在,如果存在的就update,不存在的就insert。
- 下面的语句到底哪里错了 哪位大哥帮帮忙?
- 一个我想不到的SQL语句问题(Paradox表)高手们是否遇到过???????
- 关于label控件?
- 各位高手,请帮忙,我实在搞不定了,谢谢了!
- 请问:用DELPHI在软件中做广告条,和QQ的一样,怎么做?
- 急!各位大侠救命啊!!DLL问题
- !!!用ActiveX控件做了一个Flash播放器,请大家帮忙测试并提出宝贵意见!!!!
- 怎样将临时表中的数据一次过写进数据库中?
- 求助:这个filter怎么写?
- 菜鸟问题。使用query的问题
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,shellapi;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
function HtmlHelpA(Handle:HWND;lpHelpFile:string;wCommand:integer;dwData:string):Integer;stdcall;External 'hhctrl.ocx';
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(handle, 'open', 'KIme.chm',nil,nil, SW_SHOWMAXIMIZED);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
HtmlhelpA(form1.handle,'KIme.chm',0,'');
end;end.