100分求将网页设置为壁纸的代码

[aton]

网上搜索了几个例子，运行都失败：

1）ActiveDesk := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
这样创建提示：class not registered

2) hr := CoCreateInstance(CLSID_ActiveDesktop, nil, CLSCTX_INPROC_SERVER, IID_IActiveDesktop , ActiveDesk);
这样创建提示：Undeclared identifier: 'IID_IActiveDesktop'

3) const IID_IActiveDesktop : TGUID = '{F490EB00-1240-11D1-9888-006097DEACF9}';
hr := CoCreateInstance(CLSID_ActiveDesktop, nil, CLSCTX_INPROC_SERVER,IID_IActiveDesktop , ActiveDesk);
运行hr为负数，创建失败。

[光明山人]

你本地可能没有安装启用活动桌面或“在活动桌面显示 Web 内容”。

[lilongzhu]

rtfw，说不定有收获

[aton]

在另一台机器上试又通过了。不知道是不是什么设置或者服务没开导致创建失败。