即时更换墙纸(200分)

下面的代码保证可以
Systemparametersinfo(SPI_SETDESKWALLPAPER, 0, 'c:/aaa.bmp', SPIF_UPDATEINIFILE);

UpdateKey := 'HKEY_CURRENT_USER/Control Panel/desktop';
StrPCopy(S, UpdateKey);
SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, SPI_SETDESKWALLPAPER, integer(@S));

接受

systemparametersinfo(SPI_SETDESKWallpaper,0,Nil,SPIF_SendChange);

多人接受答案了。