急，求救！一个简单的问题！！在线等 (10分)

如何将一个HTML文件设置为壁纸？
不要告诉我和设置*.bmp一样，我试过以下代码。不行！！！

Reg:=Tregistry.Create;{创建Tregistry对象的实例}
Reg.Rootkey:= Hkey_Current_User;{设置根键名称}
Reg.OpenKey ('Control Panel/Desktop',False); {打开Control Panel/Desktop 路径对应的主键}
Reg.WriteString ('TileWallPaper','0');
Reg.WriteString ('Wallpaper','c:/1.htm');{向TileWallpaper 和Wallpaper串覆盖写入新值}
Systemparametersinfo(SPI_SETDESKWALLPAPER,0,nil,SPIf_SendChange);
Reg.CloseKey;{将更改内容写入注册表并关闭}
Reg.Free;{释放对象}

systemparametersinfo(SPI_SETDESKWALLPAPER ,0,pchar('c:/1.htm'),SPIF_UPDATEINIFILE );

你先把桌面改为HTML模式，再改回来，看一下注册表有何变化，就可以了啊。

可以具体点吗？

desktop显示html，需要设置web，具体的不能在具体了，这不是delphi问题，是操作系统
的操作问题

在显示属性的WEB选项卡里的“在活动桌面上显示WEB内容”前点对号
然后新建一个HTML文件，即可
DELHI代码如何实现，不太懂。