在设置了墙纸时，如何使桌面上的图标文字背景变成透明？（最好能永久保持）！

Question

透明桌面文字代码如下：
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;
如果要永久保持的话，必须驻留后台，拦截桌面刷新的消息，然后使用上面的代码即可。

Answer 1

shirong(snb)　：
  呵呵，你试一试？