7.0的VFP: 怎么判断系统是否有包含Microsoft Word的窗口

2012-04-09

7.0的VFP: 如何判断系统是否有包含Microsoft Word的窗口我本来发过此帖，求得APPLE大大侠答案，好使，不过VFP

7.0的VFP: 如何判断系统是否有包含Microsoft Word的窗口
我本来发过此帖，求得APPLE大大侠答案，好使，不过VFP7.0不支持try

而由于客观原因，我只能用VFP 的7.0版

请给个7.0下能用的代码

BTW: EnumWindows不会用，也不是没在网上找

[解决办法]
上个帖子就说过，用
nd=FindWindow( "OpusApp", 0)
If hWnd = 0 Then '0 表示没有 Word在运行。
wait wind " Word没有运行！"
end if
[解决办法]

探讨
引用:
估计楼主是判断是否WORD打开了

我理解也是这个意思，但上一贴版主的回复貌似是“是否安装”？

[解决办法]
楼主参考一下这个

VB code

ClearON ERROR DO errHandler WITH ;   ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( )oleApp = GETOBJECT(, "Word.Application")ON ERROR  && 恢复系统错误处理程序.PROCEDURE errHandler   PARAMETER merror, mess, mess1, mprog   CLEAR   ? '错误编号: ' + LTRIM(STR(merror))   ? '错误信息: ' + mess   ? '错误的代码行: ' + mess1   ? '错误的程序: ' + mprogENDPROC
[解决办法]
VB codem.llExit = .T.On Error m.llExit = .F.m.loWord = Getobject(,'Word.Application')    && 此句报错说明没有 Word 打开m.loWord = NullOn ErrorIf m.llExit    Messagebox('包含Word',64,'信息提示')Else    Messagebox('不包含Word',64,'信息提示')Endif
[解决办法]
Declare Integer FindWindow in user32 String lpClassName, String lpWindowName
nd=FindWindow( "OpusApp", 0)
  If hWnd = 0 Then '0 表示没有 Word在运行。
 wait wind " Word没有运行！"
end if

热点排行