uses shellapi
.......
var HWndHelp:Hwnd;
i:integer;
begin
//检查帮助窗口是否已经存在
HWndHelp:=FindWindow(nil,conHelpTitle);
if HwndHelp<>0 then // 如存在则关闭
SendMessage(HwndHelp,WM_CLOSE,0,0);
i:=ShellExecute(handle, 'open',Pchar(strCurExePath+'/help.chm''),nil, nil, sw_ShowNormal);
if i<>42 then
Showmessage(' help.chm 帮助文件损坏!');
end;
.......
var HWndHelp:Hwnd;
i:integer;
begin
//检查帮助窗口是否已经存在
HWndHelp:=FindWindow(nil,conHelpTitle);
if HwndHelp<>0 then // 如存在则关闭
SendMessage(HwndHelp,WM_CLOSE,0,0);
i:=ShellExecute(handle, 'open',Pchar(strCurExePath+'/help.chm''),nil, nil, sw_ShowNormal);
if i<>42 then
Showmessage(' help.chm 帮助文件损坏!');
end;