Dim str1 As String
str1 = InputBox("input the proname want to close:")
hwnd1 = FindWindow(vbNullString, str1)
If hwnd1 = 0 Then
MsgBox 0
Else
MsgBox hwnd1
a = SendMessage(hwnd1, WM_CLOSE, 1, 1)
End If
利用上段代码可以检测到要关闭的程序是否打开,但不能关闭,请教高手!!!
str1 = InputBox("input the proname want to close:")
hwnd1 = FindWindow(vbNullString, str1)
If hwnd1 = 0 Then
MsgBox 0
Else
MsgBox hwnd1
a = SendMessage(hwnd1, WM_CLOSE, 1, 1)
End If
利用上段代码可以检测到要关闭的程序是否打开,但不能关闭,请教高手!!!
解决方案 »
- 这段关于托盘程序的代码,我想请问:.uCallbackMessage = WM_MOUSEMOVE是起什么作用的,请详细解释一下.
- 如何使XP系统屏幕变成灰色,就像XP点“关闭计算机”后不做任何动作,屏幕会慢慢变成灰色?
- 怎样判断pictruebox控件有没有装载图片?
- 如何获得ACCESS数据表名称的清单,以及每个表中的字段清单
- 大家装SP6后出问题了吗,我的DAO好像出问题了
- 谁和我一起来骂ActiveReport的Frame组件!!!!!
- 在NT4.0中怎樣使用Print Port
- 关于在延时中使用DoEvents的问题
- 为毛无法抛出事件?
- 求助,如何注册新的ocx控件?
- 一个有关资源文件的奇怪问题,很急!
- 关于日期型字段出错问题
a=PostMessage(hwnd1, WM_CLOSE, 0&, 0&)
呵呵.