Win7使用VB2010如何实现隐藏桌面
使用winxp系统可以使用aPI函数实现,但是在win7中却不好用,请问,在win7下,如何变成实现呢
问题已经解决,费了好大劲,拿出来共享吧:QQ:393173607
'隐藏桌面图标(WorkerW->SHELLDLL_DefView->SysListView32这个是Win7桌面类的位置)
Public Sub HideDeskIcon()
Dim intParentWindows As Integer '保存父窗体句柄
Dim intBoyWindows As Integer '保存子窗体句柄
intParentWindows = FindWindowEx(0, 0, "WorkerW", vbNullString) '查找WorkerW类,Win7中有很多个这样的类,需要进行遍历
Do
intBoyWindows = FindWindowEx(intParentWindows, 0, "SHELLDLL_DefView", vbNullString) '找子类
intParentWindows = FindWindowEx(0, intParentWindows, "WorkerW", vbNullString)
Loop While intParentWindows <> 0 And intBoyWindows = 0 '有父类时同时没有找到子类循环查找
intBoyWindows = FindWindowEx(intBoyWindows, 0, "SysListView32", vbNullString) '查找下一个子类
ShowWindow(intBoyWindows, SW_HIDE) '隐藏类
End Sub