Как установить цвет фона иконок на рабочем столе, либо сделать у них прозрачный фон?

Code:

unit DeskIcons;

interface

uses Graphics; // Будет использоваться TColor

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

procedure SetDefaultIconColors;

implementation

uses Windows, CommCtrl; // будут использоваться HWND и ListView_XXXXX

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

var

Window: HWND;

begin

// Находим нужное окно в три этапа

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

// Используем FindWindowEx для нахождения дочернего окна

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

// SysListView32, это список с иконками на рабочем столе

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;

procedure SetDefaultIconColors;

{ Эта процедура устанавливает цвета, которые заданы в

windows по умолчанию }

var

Kind: Integer;

Color: TColor;

begin

Kind := COLOR_DESKTOP;

Color := GetSysColor(COLOR_DESKTOP);

SetSysColors(1, Kind, Color);

end;

end.