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

Question

网上搜索了几个例子，运行都失败：1）ActiveDesk := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
这样创建提示：class not registered2) 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为负数，创建失败。

Answer 1

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