powerbuilder判断程序是否运行
想用PB判断一个Windows程序是否在运行着。
用以下函数,老是不成功:(Win7下面) 大家有更好的办法么?
integer li_size=144,li_result
string ls_executable=Space(li_size)
integer li_module_usage
uint li_module_handle
li_result=FindExecutable(as_filename,as_directory,ls_executable)
IF li_result<32 THEN Return FALSE
//如可执行文件已载入,获取这个执行文件的句柄
li_module_handle=GetModuleHandle(ls_executable)
IF li_module_handle<1 THEN
//没有载入
Return FALSE
ELSE
//获取有多少个实例被载入
li_module_usage=GetModuleUsage(li_module_handle)
Return TRUE
END IF