修改桌面显示IE浏览器，刷新explorer.exe后弹出我的文档，求助
;还原WINXP_SP3桌面IE图标Dim $HideDesktopIcons
$HideDesktopIcons = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel"
$HideDesktopIcons = "{871C5380-42A0-1069-A2EA-08002B30309D}"
If RegRead($HideDesktopIcons,$HideDesktopIcons) = "1" Then RegWrite($HideDesktopIcons,$HideDesktopIcons,"REG_DWORD",0)
Dim $NoInternetIcon
$NoInternetIcon = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
$NoInternetIcon = "NoInternetIcon"
If RegRead($NoInternetIcon,$NoInternetIcon) = "1" Then RegWrite($NoInternetIcon,$NoInternetIcon,"REG_DWORD",0)
;刷新桌面图标
Do
ProcessClose("explorer.exe")
Until Not ProcessExists("explorer.exe")
Run("gpupdate /force","",@SW_HIDE)WINXP_sp3系统，通过注册表显示原始IE浏览器图标，寻找多个刷新注册表、组策略、注册表方式无效，最后使用重启"explorer.exe"才生效，但是重启"explorer.exe"后会自动弹出我的文档，求大家指点下。 刷新explorer.exe_Update_Explorer()
Func _Update_Explorer()
Local $bOld = Opt("WinSearchChildren", True)
Local $a = WinList("")
For $i = 0 To UBound($a) - 1
DllCall("user32.dll", "long", "SendMessage", "hwnd", $a[$i], "int", 0x111, "int", 28931, "int", 0)
Next
Opt("WinSearchChildren", $bOld)
EndFunc ;==>_Update_Explorer 刷新explorer.exe
lixiaolong 发表于 2011-2-27 21:11 http://www.autoitx.com/images/common/back.gif
这个方法是可以刷新explorer.exe 但是桌面IE图标不能显示
反复测试
使用ProcessClose("explorer.exe")则回自动弹出我的文档
使用run("taskkill /f /im explorer.exe")则不会弹出我的文档
但是不想加载cmd.exe，有什么其他办法或者api函数重启explorer.exe进程的不？ 本帖最后由 lixiaolong 于 2011-2-28 00:17 编辑
回复 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("")
For $i = 0 To UBound($a) - 1
DllCall("user32.dll", "long", "SendMessage", "hwnd", $a[$i], "int", 0x111, "int", 28931, "int", 0)
Next
Opt("WinSearchChildren", $bOld)
EndFunc ;==>_Update_Explorer 回复qq724174
我这里使用_Update_Explorer()可以显示.
我想应该是系统的问题.
还有这个注册表没有 ...
lixiaolong 发表于 2011-2-28 00:14 http://www.autoitx.com/images/common/back.gif
测试后依然无用，非得重启Explorer.exe进程才可以刷新出来 回复 5# qq724174
这我就不知道原因了，我的电脑上没有问题...
页:
[1]