|
#2
songyafeng2005-08-31 16:31
procedure TForm1.N13Click(Sender: TObject); var HWndHelp:Hwnd; i:integer; begin //检查帮助窗口是否已经存在 HWndHelp:=FindWindow(nil,'系统帮助文件'); if HwndHelp<>0 then // 如存在则关闭 SendMessage(HwndHelp,WM_CLOSE,0,0); i:=ShellExecute(handle, 'open',Pchar('\help.chm'),nil, nil, sw_ShowNormal); end; 以上适用于打开文件名为*.chm后缀的帮助文件,此处仅以help.chm举例说明,请把帮助文件放在可执行文件的根目录  |
本人自学delphi,遇到一问题.希望有高手可以解答:如何在一个程序或软件中链接一个帮助文件,运行程序是点击"帮助文件"在窗口外打开帮助文件