文件夹图标更改不生效

我通过registry项更改了默认的系统文件夹图标

Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('SoftwareMicrosoftwindowsCurrentVersionExplorerShell Icons',True); Reg.WriteString('3','C:MyIcon.icl,0'); finally RegFile.Free; end;

我可以更改registry值，但问题是我需要重新启动操作系统才能生效。

要解决这个问题，我试过了

SendMessage(HWND_broADCAST,WM_SETTINGCHANGE,0);

和：

如何以编程方式在Windows中滚动控件？

如何在非触摸式Windows上testing支持触摸的应用程序？

delphi：LONG_PTR宣言，WNDPROC

dynamic与静态DLL链接是不同的

delphi：通过套接字发送多个string？

SHChangeNotify(SHCNE_ASSOCCHANGED,SHCNF_IDLIST,nil,nil);

它适用于WinXP，但不适用于Win7。

我怎样才能解决它在Win7上？

如何让Windows SCM在失败时重启我的服务

delphiTExcelApplication和Windows预览平移

从Linux / Delphi 10.2控制台应用程序执行外部程序

如何检查是否有默认打印机（Windows）？

如何在Delphi中获取创build/最后修改文件的date？

尝试从任务管理器“结束任务”进程“explorer.exe”

并再次启动（运行 – > explorer.exe），

如果通过这个过程，你可以看到更新的图标，尝试以编程方式执行此操作，以便不必重新启动。