怎么通过代码设置 电脑桌面的墙纸 为网页

Question

我想通过delphi代码设置电脑桌面的 墙纸为网页，而且不是本地的HTM，而是某个网址，比如http://www.sina.com.cn 。请问怎么实现？

Answer 1

SystemParametersInfo (SPI_SETDESKWALLPAPER, 0, 'Sample.bmp', SPIF_UPDATEINIFILE); 
这个API函数是设置壁纸,通过桌面显示网页估计不行.

Answer 2

大家直接设置桌面属性 在活动桌面上显示WEB内容，就可以实现。
只是不知道代码怎么实现

Answer 3

var 
  reg : TRegInIFile;
begin 
  reg := TRegInIFile.Create( Control Panel ); 
  reg.WriteString( desktop , WallPaper , wallpaper.bmp ); 
  reg.WriteString( desktop , TileWallPaper , 1 ); 
  reg.Free; 
  SystemParametersInfo( SPI_SETDESKWALLPAPER , 0 , nil , SPIF_SENDWININICHA; 
end;