转贴:怎样将桌面上的文字改成透明？

[Zheast]

转贴http://www.csdn.net/expert/topic/296/296977.shtm

主　　题：怎样将桌面上的文字改成透明？
作　　者：biihc2000
所属论坛：C++ Builder
问题点数：20
回复次数：10
发表时间：2001-9-21 15:55:13
问题很简单，不知哪位高手能不惜指教？先多谢了！



回复人：　SCUM(人渣)　(2001-9-24 9:05:24) 得0分
试试以下代码：（原代吗是C++ Builder以下改为DELPHI）

procedure TForm1.Button1Click(Sender: TObject);
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;

在DELPHI5＋WIN98下通过
编译时出现下列警告，不过没关系。
[Warning] Unit1.pas(44): Constant expression violates subrange bounds

[wilddragon]

哈哈

[Zheast]

快试吧

[Zheast]

效果不错，只是桌面刷新后需要重新执行一次
上面的
SendMessage(Wnd, $1026, 0, $ffffffff);
SendMessage(Wnd, $1024, 0, $00ffffff);
分别是向WINDOWS声明桌面字体的背景色和前景色。

[Zheast]

这是一个小技巧