|
|
|
| 如何使桌面文字变成透明【原创】 |
2000-02-17 03:33 |
procedure Tform.Button5Click(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); //this
SendMessage(Wnd, $1024, 0, $00FFFFFF);
InvalidateRect(Wnd, nil, TRUE);
end;
俺总算得的答案了。
此文为原创作品,版权归作者所有,转载事宜请联系作者本人,特此说明。本文出处:http://blog.guanshui.com/urus/archive/15116476.html
此文为原创作品,版权归作者所有,转载事宜请联系作者本人,特此说明!
固定链接|阅读(1382)|评论(0)
|论坛
|收藏|
【关闭】
|
|
|
|
|
|
|
|
