本文介绍如何在PB程序设计中利用FindWindowA和SetParent函数确保辅助程序如chm文件仅运行一个实例，并在主程序退出时同步关闭这些辅助程序。
在PB程序设计中，可以用Run()来运行一些程序。比如用户按了F1，就运行一个chm文件。但Run程序无法
与PB主程序协调工作，若用户按了多次F1，就会启动Run程序的多个实例，主程序退出时，Run程序依然
handle=FindWindowA(nul,wtitle)
//若已经在运行就返回
Run(″C:Program FilesJointJoint.chm″)
//否则运行Run程序
SetParent(handle,Handle(w_main))
//使Run程序窗口成为PB主程序的子窗口
与PB主程序协调工作，若用户按了多次F1，就会启动Run程序的多个实例，主程序退出时，Run程序依然
运行。可以用如下函数来使它们协调工作：
在外部函数中引用：
Function Long SetParent(Long childwin,Long parentwin) Library ″user32.dll″
使用如下:
handle=FindWindowA(nul,wtitle)
//查找Run程序是否已经运行，wtitle为Run程序的标题
IF handle〉0 Then Return//若已经在运行就返回
Run(″C:Program FilesJointJoint.chm″)
//否则运行Run程序
⑵PB主程序退出时，Run程序也关闭
handle=FindWindowA(nul,wtitle)SetParent(handle,Handle(w_main))
//使Run程序窗口成为PB主程序的子窗口
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
