Цвет фона надписей значков на Рабочем столе

Нашел такой код, но ничего не получается

interface
uses Graphics;

procedure SetDesktopIconColor(Forground, Background: TColor; Trans: Boolean);

implementation
uses Windows, CommCtrl;
procedure SetDesktopIconColor(Forground, Background: TColor; Trans: Boolean);

var
Window: HWND;
begin

Window := FindWindow('Progman', 'Program Manager');

Window := FindWindowEx(Window, HWND(nil), 'SHELLDLL_DefView', '');

Window := FindWindowEx(Window, HWND(nil), 'SysListView32', '');

if Trans then
ListView_SetTextBkColor(Window, $ffffffff) // фоновый цвет
else
ListView_SetTextBkColor(Window, Background); // фоновый цвет

ListView_SetTextColor(Window, Forground); // передний цвет

ListView_RedrawItems(Window, 0, ListView_GetItemCount(Window) - 1);

UpdateWindow(Window);
end;


Что не так?Помогите