使桌面的图标文字透明

]、。·ˉˇ¨〃々—～‖…’”〕〉》」』〗】∶！＂＇），．：；？］｀ 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;