关闭CHM文件

Question

我用
WinExec('hh.exe CHM.chm::1.html',SW_SHOWNORMAL);
打开一个CHM文件，
请问，怎样判断这个文件是打开的，同时如果是打开的话，用一个语关闭它（不是点击CHM文件右上角的X），怎样实现？

Answer 1

var  HWndCalculator : HWnd;
begin
HWndCalculator := Winprocs.FindWindow(nil, '计算器');
if HWndCalculator <> 0 then
SendMessage(HWndCalculator, WM_CLOSE, 0, 0);
end;将'计算器' 替换成你那文件的窗口标题即可