主页
Top.Mail.Ru Yandeks.Metrika
论坛:“WinAPI”;
当前存档:2002.04.25;
下载:[xml.tar.bz2];

向下

使用桌面 找到类似的分支


Mover   (2002-02-19 10:58) [0]

您好!
如果没有困难,请 知道的 回答以下的问题:
1.-我怎么知道是否启用了Active Desktop? 并在必要时将其禁用...
(在注册表HKCU \ Software \ Microsoft \ CurrentVersion \ Policies \ Explorer \ NoActiveDesktop中没有密钥,我检查了它!尽管通过RegMonitor判断,Explorer本身正在寻找它)。
2.-如何更改背景色 简单活跃 台式机?
我对著名的解决方案不满意:

H1:=FindWindow("Progman",nil);
H1:=FindWindowEx(h1, 0, nil, nil);
H1:=FindWindowEx(h1, 0, nil, nil);
if H1<>0 then begin
SetLength(S, 40);
GetClassName(h1, PChar(S), 39);
if PChar(S) = "SysListView32" then begin
// Выберем случайный цвет
Red:=Random(100);
Green:=Random(100);
Blue:=Random(100);
C1:=$00010000*Blue+$00000100*Green+$00000001*Red;
ListView_SetBkColor(H1, C1);
end;
end;

因为它不刷新就无法工作,设置背景图像会取消设置并返回以前的背景色。

PS。 爬上了所有论坛和常见问题解答... =((在任何地方都没有,或者我看上去很糟糕。



VuDZ   (2002-02-19 13:16) [1]

但是在注册表中查找呢? 一切都在那里-颜色和背景图像...



Mover   (2002-02-19 13:47) [2]

2 VuDZ:
您看...我只是没有时间进行注册表研究! =)使用此类“答案”弯曲论坛...
顺便说一下,这是我发现的:

HKCU \控制面板\颜色(背景)
HKCU \控制面板\桌面(墙纸,TileWallpaper)

刷新图片-没问题! 但是带有颜色-有点废话。 不更新注册表,桌面不响应。
颜色保持旧状态,直到重新启动。

2All:是否有人使用过Active Desktop?



Pete   (2002-02-19 16:07) [3]

2 Mover:

我很少在这里寻求答案。 听聪明的人很有趣……在我看来,他对人们的阅读比他回答和询问的次数还要多……
而且由于没有时间(或只是懒惰)来学习,这是徒劳的...自己“解决”问题很有趣...



SerVS - S   (2002-02-19 16:27) [4]

桌面具有IActiveDesktop。 我大约两个星期前问了这个问题,看看有一个例子。



Mover   (2002-02-19 16:40) [5]

好吧,别偷懒,没有时间了...我会尽快上传新版本 墙纸 (v0.6)到储藏室// 程序,我问自己并实施了所有内容。
一件事,我只是没有找到安装新的桌面后如何更新桌面的方法 背景颜色...否则我也将改变它! =)



Raptor   (2002-02-19 22:12) [6]

就是这样,SerVS-S说话正确。 在此论坛上搜索IActiveDesktop。 我已经在这里回答了2到3次类似的问题。 或在MSDN中搜索IActiveDesktop接口的描述。



Mover   (2002-02-20 12:28) [7]

没有猛禽! 我问一件事,我得到另一件事。
我不需要代码如何为ActiveDesktop更改背景。
我已经知道了……=)问题:如何确定, 开或关 ActiveDesktop ?! 因此,一切都变得非常复杂和混乱,但是我分析了注册表中的ShellState二进制密钥-这是唯一更改的东西。 结果发现,在第5个字节2中,左侧的位恰好指向复选框“将内容显示为网页”。 这是代码:

function Get_Active_Desktop: Boolean;
var
Buff: array [0..27] of Byte;
begin
Result:=False;
with TRegistry.Create do
try
bActive:=False;
RootKey:=HKEY_CURRENT_USER;
if OpenKey("\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer", False) then begin
// Определим состояние Desktop "Отображать, как Web-страницу"
ReadBinaryData("ShellState", Buff, SizeOf(Buff));
Result:=(Buff[4] and $40) <> 0;
CloseKey;
end;
finally
Free;
end;
end;


谢谢您的关注... =)
顺便说一句,如果有人能告诉您在两种情况下如何更改背景颜色,请写信-非常感谢!



Страницы: 1 整个分支

论坛:“WinAPI”;
当前存档:2002.04.25;
下载:[xml.tar.bz2];

楼上





内存:0.57 MB
时间:0.021 c
1-80856
besen-OK
2002-04-11 10:48
2002.04.25
用于1С的Delphi Compeneter(DLL)


1-80928
Abdurashid
2002-04-11 10:59
2002.04.25
帮忙


3-80783
OlegM
2002-04-03 15:33
2002.04.25
请求结果请求


1-80993
Vova33
2002-04-12 16:53
2002.04.25


3-80796
B_A_V
2002-04-05 09:09
2002.04.25
按最后日期<输入日期选择





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский