使桌面的图标文字透明

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;