请问如何将活动桌面中的显示web内容取消？不取消我的墙纸设置不上

[benbebnmao]

请问如何将活动桌面中的显示web内容取消？不取消我的墙纸设置不上

应给如何修改注册表，我不知道是那个键值，给点指点吧。

[benbebnmao]

这个嘛，我会！
呵呵，我是说在我的程序中如何设置？
我在程序中要更换墙纸，发现只有在取消显示web内容是才能更换成功

[benbebnmao]

upup!
自己up:(

[chenliang6625369]

笨蛋,直接选择扩展名为*.bmp的图片做为桌面背景,这时就没有用web内容显示.如果是其他格式的图片都需要用web来显示.

[benbebnmao]

老大，你自己试试好了！
我当然使用的bmp了！
当你选用一幅jpg图片做墙纸时，系统回提示你要生成活动桌面。
但是设成活动桌面后我自的程序在更换墙纸时就不起作用了。
我想如果你自己做一下的话你也会碰到这个问题

[halibut]

桌面右键,属性,(我用的是XP)桌面,自定义桌面,web,列表中什么也不要选!确定!

[benbebnmao]

这个问题不算难吧？

[benbebnmao]

大家都没看明白的意思么？
我就是将一幅bmp图片设成墙纸。
但是，机子（比如别人的机子，我是无法手动改的，只能在我的程序中改）上原来可能是设成活动桌面，如果设成活动桌面了且“显示web内容”，则我的改变墙纸的程序就不起作用了，所以我要先将“显示web内容“去掉

[「已注销」]

这个问题我没解决

两年前没解决

现在也没解决

写桌面墙纸自动设置小程序的朋友都会遇到这个问题

我在写《秋枫动画伴侣4.0》的时候也没解决这个问题





学习

@_@

[cscer]

将JPG图片在程序中转换成BMP格式，再设置

我也没试过，猜的

[benbebnmao]

难道我就就此绝望了，天啊？！

[Taiji02]

在我的“网络贝壳”中实现了，要的话留下信箱。

[benbebnmao]

TO:Taiji02(太极)
好啊！多谢！
email:[e-mail]

金山毒霸安装时，又一项选这就是改不改变墙纸，不知她怎么实现的？

[myy]

技术封锁？

uses shlobj,comobj;

{ 打开/关闭活动桌面 }
function SetActiveDesktop(const b: Boolean): integer;
var
Desktop: IActiveDesktop;
Info: TComponentsOpt;
begin
DeskTop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
Result := GetLastError;
info.dwSize := sizeof(info);
info.fActiveDesktop := b;
info.fEnableComponents := false;
Desktop.SetDesktopItemOptions(info, 0);
DeskTop.ApplyChanges(AD_APPLY_ALL);
end;

uses
ComObj, ShlObj, ActiveX;
{ 允许/关闭活动桌面 }
procedure EnableActiveDesktop(bValue: Boolean);
const
CLSID_ActiveDesktop: TGUID = (D1: $75048700; D2: $EF1F; D3: $11D0;
D4: ($98, $88, $00, $60, $97, $DE, $AC, $F9));
var
MyObject: IUnknown;
ActiveDesk: IActiveDesktop;
twpoComponentOpt: TComponentsOpt;
begin
MyObject := CreateComObject(CLSID_ActiveDesktop);
ActiveDesk := MyObject as IActiveDesktop;
with twpoComponentOpt do
begin
ZeroMemory(@twpoComponentOpt, SizeOf(TComponentsOpt));
dwSize := SizeOf(twpoComponentOpt);
fEnableComponents := bValue;
// fActiveDesktop := True;
end;
ActiveDesk.SetDesktopItemOptions(twpoComponentOpt, 0);
ActiveDesk.ApplyChanges(AD_APPLY_ALL);
end;

{ 设置活动桌面墙纸 }
function SetActiveDesktopWallpaper(FileName: string): integer;
var
Desktop: IActiveDesktop;
Temp: WideString;
begin
DeskTop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
Result := GetLastError;
Temp := FileName;
Desktop.SetWallpaper(PWideChar(Temp), 0);
DeskTop.ApplyChanges(AD_APPLY_ALL);
end;

{ 判断活动桌面是否存在 }
function ActiveDesktop : Boolean;
begin
Result := FindWindowEx(FindWindowEx(FindWindowEx(
GetDesktopWindow, 0, 'Progman', nil), 0,
'SHELLDLL_DefView', nil), 0, 'Internet Explorer_Server',
nil) <> 0;
end;

{ 怎样知道用户的计算机中装有活动桌面 }
olecheck(createcomobject(class_iactivedesktop))(classid具体是什么
记不清了，你再查查是什么东西，只要没有异常就是安装了活动桌面）

{ 怎样在程序中把活动桌面关闭? }
怎样在程序中把活动桌面关闭?就像在桌面上单击右键,吧"活动桌面"中的"按Web页查看"去掉.
不就是改注册表吗，这个我在行。
我在win 2000下是
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ShellState
将其中的63改为23即可。
上次有人问过如何开，这次有人问如何关，有意思。为什么不先查一查。

[myy]

把上面的函数整理一下，直接加到 BCB 工程中，注意要包含 *.hpp

[benbebnmao]

多谢!