修改桌面显示IE浏览器，刷新explorer.exe后弹出我的文档，求助

qq724174

;还原WINXP_SP3桌面IE图标
Dim $HideDesktopIcons[2]
$HideDesktopIcons[0] = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel"
$HideDesktopIcons[1] = "{871C5380-42A0-1069-A2EA-08002B30309D}"
If RegRead($HideDesktopIcons[0],$HideDesktopIcons[1]) = "1" Then RegWrite($HideDesktopIcons[0],$HideDesktopIcons[1],"REG_DWORD",0)

Dim $NoInternetIcon[2]
$NoInternetIcon[0] = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
$NoInternetIcon[1] = "NoInternetIcon"
If RegRead($NoInternetIcon[0],$NoInternetIcon[1]) = "1" Then RegWrite($NoInternetIcon[0],$NoInternetIcon[1],"REG_DWORD",0)

;刷新桌面图标
Do
        ProcessClose("explorer.exe")
Until Not ProcessExists("explorer.exe")
Run("gpupdate /force","",@SW_HIDE)

WINXP_sp3系统，通过注册表显示原始IE浏览器图标，寻找多个刷新注册表、组策略、注册表方式无效，最后使用重启"explorer.exe"才生效，但是重启"explorer.exe"后会自动弹出我的文档，求大家指点下。

lixiaolong

刷新explorer.exe

_Update_Explorer()

Func _Update_Explorer()
        Local $bOld = Opt("WinSearchChildren", True)
        Local $a = WinList("[CLASS:SHELLDLL_DefView]")
        For $i = 0 To UBound($a) - 1
                DllCall("user32.dll", "long", "SendMessage", "hwnd", $a[$i][1], "int", 0x111, "int", 28931, "int", 0)
        Next
        Opt("WinSearchChildren", $bOld)
EndFunc   ;==>_Update_Explorer

qq724174

刷新explorer.exe
lixiaolong 发表于 2011-2-27 21:11

    这个方法是可以刷新explorer.exe 但是桌面IE图标不能显示

反复测试
使用ProcessClose("explorer.exe")则回自动弹出我的文档
使用run("taskkill /f /im explorer.exe")则不会弹出我的文档

但是不想加载cmd.exe，有什么其他办法或者api函数重启explorer.exe进程的不？

lixiaolong

回复 3# qq724174

我这里使用_Update_Explorer()可以显示.
我想应该是系统的问题.

还有这个注册表没有用
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
"NoInternetIcon"

试试这个

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu", "{871C5380-42A0-1069-A2EA-08002B30309D}", "REG_DWORD", 0x00000000)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel", "{871C5380-42A0-1069-A2EA-08002B30309D}", "REG_DWORD", 0x00000000)

_Update_Explorer()

Func _Update_Explorer()
        Local $bOld = Opt("WinSearchChildren", True)
        Local $a = WinList("[CLASS:SHELLDLL_DefView]")
        For $i = 0 To UBound($a) - 1
                DllCall("user32.dll", "long", "SendMessage", "hwnd", $a[$i][1], "int", 0x111, "int", 28931, "int", 0)
        Next
        Opt("WinSearchChildren", $bOld)
EndFunc   ;==>_Update_Explorer

qq724174

回复  qq724174

我这里使用_Update_Explorer()可以显示.
我想应该是系统的问题.

还有这个注册表没有 ...
lixiaolong 发表于 2011-2-28 00:14

    测试后依然无用，非得重启Explorer.exe进程才可以刷新出来

lixiaolong

回复 5# qq724174

这我就不知道原因了，我的电脑上没有问题...