发信人: 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版直达快车
█┃印龍┃█
█┗━━┛█
██████ |
|