作用:判断某应用程序窗口是否打开,如未打开,则会定时打开 - Sybase

admin8776

圣骑士

UID：610450
注册：2007-8-31
最后登录： 2008-06-28
帖子：113
精华：0

可用积分：732
信誉积分：15
专家积分：0 (本版)

状态：...离线...

[个人空间] [短信] [博客]

1楼发表于 2007-10-18 15:47

作用:判断某应用程序窗口是否打开,如未打开,则会定时打开(下面以Microsoft Word应用窗口为例)
开发工具

owerBuilder9
1.定义全局变量
string gs_title,gs_run,gs_sec
2.定义全局外部函数(Global External Functions)
FUNCTION uLong ShowWindow( ulong winhandle, int wincommand ) Library "user32"
FUNCTION uLong BringWindowToTop( ulong HWND ) Library "user32"
FUNCTION long FindWindowA( ulong Winhandle, string wintitle ) Library "user32"

3.应用程序的open()事件底稿如下:
string ls_start
ls_start="century.ini"
if not FileExists(ls_start) then

messagebox('Information','INI FILE NOT FIND')

return
end if
gs_title=profilestring(ls_start,"Application","wintitle",""

gs_run=profilestring(ls_start,"Application","runpath",""

gs_sec=profilestring(ls_start,"Application","interval",""

open(w_test)

INI文件century.ini中的内容如下:
[Application]
wintitle="文档1-Microsoft Word"
runpath="D:\Program Files\Microsoft Office\OFFICE11\winword.exe"
interval="10"

4.创建窗口w_test,此窗口不需任何控件
4.1窗口w_test
open()事件底稿如下
integer ll_sec
ll_sec=integer(gs_sec)
timer(ll_sec)
4.2窗口w_test
timer()事件底稿如下:
long ll_winhandle
ll_winhandle=FindWindowA(0,gs_title)

If ll_winhandle>0 Then

BringWindowToTop(ll_winhandle)

ShowWindow(ll_winhandle,5)

Return
End If
run(gs_run)

您对本贴的看法：鲜花[1] 臭蛋[0]

CU可用积分兑换Linux/Unix精品图书 |《Ubuntu标准教程》书评获奖名单公布

感谢所有关心和支持过ChinaUnix的朋友们转载本站内容请注明原作者名及出处

京ICP证041476号

清除 Cookies - ChinaUnix - Archiver - WAP - TOP

Processed in 0.061271 second(s), 4 queries , Gzip enabled