i'm up help to you!

解决方案 »

  1.   

    P,V?不会吧,我希望得到实际一点的HELP。
      

  2.   

    我不知道你要实现的是什么功能,但是我可以提示你一下,当DOC1.DOC打开的时候会有一个名为~$Doc1.doc的隐藏文件。
      

  3.   

    Private Declare Function FindWindow% Lib "user32" Alias "FindWindowA" (ByVal lpclassname As Any, ByVal lpCaption As Any)Dim hwnd%
    hwnd% = FindWindow%("OpusApp", 0&)
    If hwnd% <> 0 Then 
    MsgBox "请关闭Word"
    Endif