批处理的

gpupdate /force /wait:0



delphi程序修改注册表的代码段的后面加上一句:

SystemParametersInfo(SPI_SETCURSORS,0,NULL,SPIF_SENDCHANGE || SPIF_UPDATEINIFILE);



VB的

修改注册表后执行以下语句。

Private Const HWND_BROADCAST As Long = &HFFFF&
Private Const WM_WININICHANGE As Long = &H1A
Private Declare Function SendNotifyMessage Lib "user32" _
Alias "SendNotifyMessageA" _
(ByVal hwnd As Long, _
ByVal msg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Call SendNotifyMessage(HWND_BROADCAST, WM_WININICHANGE, 0, ByVal "windows");