vfp关于关闭CHM的有关问题

vfp关于关闭CHM的问题？
请教：VFP下怎么判断一CHM文件已打开，并用命令关闭？

------解决方案--------------------------------------------------------
用 FindWindow 查找类名为 HH Parent 窗口
Declare Long FindWindow in win32api String,String
hWnd = FindWindow('HH Parent', null)

要关闭它，用 SendMessage 发送 WM_CLOSE 系统给它
Declare Long SendMessage in win32api Long,Long,Long,Long
SendMessage(hWnd, 0x10, 0, 0)