您所在位置：主题：关闭软件的问题
xyouzhou
[专家分：0] 发布于 2009-04-01 22:32:00
用一下代码可关闭"画图"软件
Private Sub Command1_Click()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "未命名 - 画图")
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
End If
End Sub
可如果"画图"软件的caption是可变的,如由"未命名 - 画图"变为"DSCN0936.JPG - 画图",怎样让画图软件无论何时启动都马上被关闭呢?
Private Sub Command1_Click()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "未命名 - 画图")
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
End If
End Sub
可如果"画图"软件的caption是可变的,如由"未命名 - 画图"变为"DSCN0936.JPG - 画图",怎样让画图软件无论何时启动都马上被关闭呢?
