使桌面的圖標文字透明

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;