首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > PB >

怎么关闭PB所用应用

2012-05-23 
如何关闭PB所用应用?版本是PB10.5,库是SQL2000,有多个应用,但所有应用放在一个WORKSPACE下面,做了个手动更

如何关闭PB所用应用?
版本是PB10.5,库是SQL2000,有多个应用,但所有应用放在一个WORKSPACE下面,做了个手动更新的程序。在更新前不知道客户打开了哪些应用程序,可能是一个也可能是多个,问:如何在拷贝文件时,将所有应用全部关闭?

[解决办法]
你既然有什么1.exe,2.exe那么和什么一个workspace是没关系的,这些exe就是些独立运行的程序。

一个方法是用API查找其他程序进程,然后强行关掉它。

再一个方法是写一个INI文件或写注册表什么,用于标明现在要更新了,其他所有程序里设个time定时检查这个INI文件或注册表,发现要更新了自动halt close。


[解决办法]
根据指定的标题,关闭应用.
long ll_hwnd,ll_long = 200
String ls_windowname

do 
SetNull( ls_windowname )
ll_hwnd = FindWindowExA(0, ll_hwnd, ls_windowname, ls_windowname)
ls_windowname = space(200)

GetWindowTextA(ll_hwnd, ls_windowname, ll_long)
if ls_windowname = as_titile then
send(ll_hwnd, 16, 0, 0)
end if
LOOP WHILE ll_hwnd > 0 
 

热点排行