一个关于壁纸的问题？

Question

我用以下的代码想实现更换壁纸的功能，但需要在桌面上按一下F5（刷新）才能更换墙纸
,请问什么问题？
代码如下：
var Reg:Tregistry;
begin
  Reg:=Tregistry.Create;
  Reg.RootKey:=HKey_Current_User;
  Reg.OpenKey('Software\Microsoft\Internet Explorer\Desktop\General',False);
Reg.WriteString('TileWallPaper','0');
  Reg.WriteString('WallPaper',ListBox2.Items.Strings[ListBox1.ItemIndex]);
                             /~~~~~~~~~~~
                        图片的文件名  SystemParametersInfo(SPI_SETDESKWALLPAPER,0,nil,SPIF_SendChange);
  Reg.CloseKey;
  Reg.Free;
end;

Answer 1

因为你没有通知桌面窗口刷新啊