精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>图形界面和窗体>>使桌面图标文字透明!

主题:使桌面图标文字透明!
发信人: 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版直达快车
█┃印龍┃█
█┗━━┛█
██████
   

[关闭][返回]