没人回答呀,再问,一直到有人回答,锲而不舍 delphi中帮助文件是如何创建的呀,请教 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 写一个.chm文件。然后用那个打开EXE的函数调用。 按F1实现帮助功能:unit Unit1;interfaceuses Windows, Messages, SysUtils,shellapi, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } Procedure WmHelp(var message:TWMHELP);message WM_HELP; end;var Form1: TForm1;implementation{$R *.dfm} procedure TForm1.WmHelp(var message: TWMHELP); begin Shellexecute(application.Handle,'open','http:\\mail.163.com',nil,nil,SW_NORMAL); end; procedure TForm1.Button1Click(Sender: TObject);begin Shellexecute(application.Handle,'open','http:\\mail.163.com',nil,nil,SW_NORMAL);end;end. 用API吧function HtmlHelp(hwndCaller: HWND; pszFile: PChar; uCommand: UINT; dwData: PDWORD): HWND; stdcall; external 'hhctrl.ocx' Name 'HtmlHelpA'; .chm编个还有一个反编.chm的程序 在Delphi7中如何使用apd组件拨号并播放wav? delphi7 quickreport 能否打印条码 【KeyPreview】问题了,问题解答后把把分加满~~~~~ 一个关于网络访问时Socket Error的问题 数据库问题 我快疯了,快来救救我吧????? 为什么我的多线程程序访问SQL Server数据库时报‘连接占线导致另一个命令’ 能提供一点编写“俄罗斯方块”的算法和思路吗? 怎么加密网络数据啊? zswang(伴水)(伤心中)哥哥(收) 如果大家都认为应用开发平台做不了复杂的业务逻辑的话,那这样的平台呢? 自己做了一个免费的题库试卷管理程序请大家给一点意见
unit Unit1;interfaceuses
Windows, Messages, SysUtils,shellapi, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Procedure WmHelp(var message:TWMHELP);message WM_HELP;
end;var
Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.WmHelp(var message: TWMHELP);
begin
Shellexecute(application.Handle,'open','http:\\mail.163.com',nil,nil,SW_NORMAL);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Shellexecute(application.Handle,'open','http:\\mail.163.com',nil,nil,SW_NORMAL);
end;end.
还有一个反编.chm的程序