发信人: kingron(金龍)
整理人: teleme(2001-03-02 08:40:23), 站内信件
|
有！
代码如下：
var wnd:HWND;
begin
Wnd := GetDesktopWindow;
Wnd := FindWindowEx(Wnd, 0, 'Progman', nil);
Wnd := FindWindowEx(Wnd, 0, 'SHELLDLL_DefView', nil);
Wnd := FindWindowEx(Wnd, 0, 'SysListView32', nil);
SendMessage(Wnd, $1026, 0, $ffffffff);
SendMessage(Wnd, $1024, 0, $00ffffff);
InvalidateRect(Wnd, nil, TRUE);
end;
【 在 vmao 的大作中提到：】
:
:
:请大家帮忙！前几天我为电脑桌面换了一幅JPEG图片！可是由于“我的电脑”“回收站”，“文件夹”下面的文字不透明！还显示原来的颜色而变得非常难看！有什么好的解决方案吗？？
:
:
:......
----
██████
█┏━━┓█
█┃之金┃█ Delphi版直达快车
█┃印龍┃█
█┗━━┛█
██████ |
|