Delphi程序与Chm帮助关联的实现源码(Authour: 王大帅 Email: dashuaiwang@126.com 个人空间：http://wds.3u.cn):

uses

shellapi;

……

procedure TMainForm.N3Click(Sender: TObject);
var
     HWndHelp:Hwnd;
     i:integer;
     AppPath:string;
begin

    //获取项目文件路径

     AppPath:=ExtractFileDir(Application.ExeName);

   //检查帮助窗口是否已经存在

   HWndHelp:=FindWindow(nil,PCHAR('涟钢调度计划使用说明书'));

   if HwndHelp<>0 then // 如存在则关闭

        SendMessage(HwndHelp,WM_CLOSE,0,0);

   i:=ShellExecute(handle, 'open',Pchar(AppPath+'\涟钢调度计划使用说明书.chm'),nil, nil, sw_ShowNormal);

   if i<>42 then

      Showmessage(' 涟钢调度计划使用说明书帮助文件损坏！');
end;