如何关闭“我的电脑”

[Dickson]

“我的电脑”的标题可能会改变，比如C盘啊D盘啊

而且不能用结束EXPLORER进程

[嗷嗷叫的老马]

哈,是想关闭资源管理器窗口而已吧...........

[rainstormmaster]

两种思路:
1 用findwindow之类的api查找所有顶级窗口,然后根据类名或对应进程信息,判断其是否为需要的窗口,关闭时,用sendmessage发送WM_CLOSE消息即可

2 枚举ShellWindows中的窗口,要关闭的时候调用quit方法即可:
Option Explicit
'需要引用 Microsoft Internet Controls
Dim mShellWindows As New ShellWindows
Private Sub Command1_Click()
Dim b As InternetExplorer
For Each b In mShellWindows
If b.FullName = VBA.Environ$("windir") & "\explorer.exe" Then
Debug.Print b.LocationName
End If
Next
End Sub



Private Sub Command2_Click()
'关闭所有符合你要求的窗口
Dim b As InternetExplorer
For Each b In mShellWindows
If b.FullName = VBA.Environ$("windir") & "\explorer.exe" Then
b.Quit
End If
Next
End Sub

[清晨曦月]

2 枚举ShellWindows中的窗口,要关闭的时候调用quit方法即可:


嘎嘎,今天终于被我看到这个代码了。..............收藏

[rainstormmaster]

//嘎嘎,今天终于被我看到这个代码了

怎么说"终于"啊?这段代码很普通啊

[mndsoft]

修改注册表，查一下吧。
还有一个，这个帖子楼主的意思是不是要编程解决，不是的话，可能要到操作系统里去问了，呵呵

[嗷嗷叫的老马]

..........收藏......

这Windows里还有太多的秘密......

不知道有没有什么书详细讲讲过?

[wanlion]

我觉得rainstormmaster 的方法不错