通过 dll 刷新桌面

Question

我个人对此问题的担忧是因为我正在创建一个动态桌面程序，其目的是让用户单击桌面上的文件夹，该文件夹的内容成为新桌面。 （我将在下面发布代码作为答案，以免混淆我的实际问题）。但是，部分代码需要终止并重新启动 explorer.exe 进程，以便重新初始化桌面以显示新位置。

很难找到这个问题的文档，因为它比大多数人愿意为这个特定领域去研究的技术要多。 This man is trying to do the exact same thing as me except using autoit 和 here users looked more into doing it vbscript side 但都得出了相同的结果，即杀死并重新启动 explorer.exe 以更新桌面。

我以强行方式终止explorer.exe 进程的问题可能导致系统不稳定，并且实际终止该进程需要更长的时间来重新启动桌面，而不是when you simply move the desktop location 发生的任何操作。我想知道如何通过调用更新它的 dll 来更新我的桌面，但是从批处理和 vbscript 混合中。

编辑：

对 rundll32.exe user32.dll,LockWorkStation 等命令的调查以及后来对 user32.dll 依赖项的调查发现了桌面功能的多种用途，我假设这些功能用于以某种形式更新桌面。如果您想查看此内容，请download dependency walker 并从程序中将其打开到此文件夹。 （C:\Windows\WinSxS\amd64_microsoft-windows-user32_31bf3856ad364e35_6.3.9600.18123_none_be367a2e4123fd9d\user32.dll）

Answer 1

这里是通过批处理和 vbs 混合手动更改桌面。它并不完美，但它在移入和移出目录以选择要更新到的目录之间提供了一个很好的界面。 这使用了我想用其他东西贬值的taskkill。

这是初始批处理脚本...

    @echo off
setlocal enableextensions
  ::Below computes the desktop location that the program will reference  
for /f %%a in ('cscript //nologo C:\HighestPrivelege\DesktopTools\findDesktop.vbs') do set "fold=%%a"
echo %fold%

::this loop will allow users to input new locations for the desktop by 
moving through a terminal. Wildcards and autotab completion is usable are 
and lack of input results in continuation of script
:loop
echo ################## %fold%
dir %fold% /A:D /B
echo _________________________
set loc=
set /p loc=[New Location?]
cd %fold%\%loc%
set fold=%cd%

IF [%loc%]==[] (goto cont) ELSE (goto loop)
:cont

::Below is the program that runs the regedit rewrite of the desktop variable 
for the current user. It passes the decided folder value from earlier as the 
new desktop.

cscript //nologo C:\HighestPrivelege\DesktopTools\setdesktop.vbs %fold%

::This restarts explorer.exe in order to reboot the newly created desktop 
location. I wish i didnt have to kill explorer.exe forcefully in the process 
but so far its the only way to make this program work.

taskkill /F /IM explorer.exe
explorer.exe
endlocal
pause
exit

以及随后的 VBS 脚本...

Option Explicit
'variable invocation
Dim objShell, strDesktop, strModify, strDelete, fso, f, File, content, parthe, args, arg1
Set args = WScript.Arguments
set objShell = CreateObject("WScript.Shell")
set fso = CreateObject("Scripting.FileSystemObject")
'this will take in the new desktop location.
set file= fso.OpenTextFile("C:\HighestPrivelege\DesktopTemporary.txt")
content = file.ReadAll
arg1 = args.Item(0)
parthe = ""&arg1&""
'The actual rewrite of the registry file containing the script lies below.
strDesktop = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Desktop"
strModify = objShell.RegWrite(strDesktop,parthe,"REG_EXPAND_SZ")

激活批处理脚本将提示用户他们希望将桌面重定位到的位置，并将该变量传递到 VBscript 以重写到注册表。 VBScript 完成后，Windows 资源管理器将自行重启以重新初始化新的桌面位置。

在我得到一个工作模型之前，我所要做的就是单击/与文件夹交互以初始化程序，这本手册将不得不做。