怎样不重启设置字体边缘平滑立即生效! 以下注册表导入后不能立即生效。。...

阳光穿透心脏的1/2处 2021-11-26 16:10 319阅读 0赞

Windows Registry Editor Version 5.00  
;                            视觉设置  
\[HKEY\_CURRENT\_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\VisualEffects\]  
"VisualFXSetting"=dword:00000000

![06020403-c210e0b956f84dbba651b2747b36c3ea.jpg][]

以下两种办法刷新也无法立即生效。。但是手动设置能立即生效。。。由于以前做系统时把这个给去了 现在发现显示字体边缘模糊有锯齿。。。十分难堪。。。特此寻求解决方法。。  
DllCall("user32.dll","int","SendMessageTimeout","hwnd",65535,"int",26,"int",0,"int",0,"int",0,"int",1000,"str","dwResult")  
  
Do   
        ProcessClose("explorer.exe")  
Until Not ProcessExists("explorer.exe")  
Run("gpupdate /force","",@SW\_HIDE)

\#Include <WinAPI.au3>  
WinActivate ("\[CLASS:CabinetWClass\]")  
\_WinAPI\_PostMessage(ControlGetHandle("\[CLASS:CabinetWClass\]", "", "SysListView321"),256,116,0); 刷新我的电脑  
\_WinAPI\_PostMessage(ControlGetHandle("\[CLASS![tongue.gif][]rogman\]", "", "SysListView321"),256,116,0);刷新桌面  
  
  
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  
  
DllCall("shell32.dll", "none", "SHChangeNotify", "long", 0x8000000, "int", 0, "ptr", 0, "ptr", 0)   
  
  
1、最有效的：   
结束explorer.exe，缺点时资源管理器被关，有些窗口被关，出现无任务栏桌面状态，虽然可以生效，但不推荐。   
  
\[ Copy \] \[ Run \] \[ Save \]  
Do  
ProcessClose("explorer.exe")   
Until Not ProcessExists("explorer.exe")  
  
2、调用SendMessageTimeout。效果不理想。  
  
\[ Copy \] \[ Run \] \[ Save \]  
DllCall("user32.dll","int","SendMessageTimeout","hwnd",65535,"int",26,"int",0,"int",0,"int",0,"int",1000,"str","dwResult")   
  
3、调用组策略刷新设置工具，测试无效  
  
\[ Copy \] \[ Run \] \[ Save \]  
Run("gpupdate /force",@SystemDir)  
  
4、又一刷新注册表的API，非常强捍。效果不错  
  
\[ Copy \] \[ Run \] \[ Save \]  
DllCall("shell32.dll", "none", "SHChangeNotify", "long", 0x8000000, "int", 0, "ptr", 0, "ptr", 0)  
  
5、刷新桌面  
\[ Copy \] \[ Run \] \[ Save \]  
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters  
  
6chinanewxp的函数，可以刷新注册表改文件图标后即时生效。  
  
\[ Copy \] \[ Run \] \[ Save \]  
  
MyUpdateREG()  
  
Func MyUpdateREG()  
Global Const $HWND\_BROADCAST=0xFFFF  
Global Const $WM\_SETTINGCHANGE=0x1A  
DLLCall("user32.dll","int","SendMessage","hwnd",$HWND\_BROADCAST,"int",$WM\_SETTINGCHANGE,"int","", "int", "")  
EndFunc

测试了一下，直接用API搞定：  
DllCall('USER32.DLL','dword','SystemParametersInfo','dword',75,'dword',1,'dword',2,'dword',0x1)   
留字备用！！！！

转载于:https://www.cnblogs.com/MaxWoods/archive/2013/06/06/3120331.html

[06020403-c210e0b956f84dbba651b2747b36c3ea.jpg]: /images/20211126/287bd89e119342a2bde7fc3bbbbc68d3.png
[tongue.gif]: /images/20211126/994b1a675bba4c16b1573d4a1a9bb109.png