如何实现桌面图标文字透明？(100分)

如何实现桌面图标文字透明？

1、 新建一工程，在 uses 中加入 CommCtrl 单元，窗体上加一个按钮；

2、 声明一个取得桌面句柄的函数：

function TForm1.GetDesktopHand: THandle;

begin

Result:=FindWindow('progman',nil);

Result:=GetWindow(Result,GW_Child);

Result:=GetWindow(Result,GW_Child);

end;

3、 声明一个设置图标文字颜色的过程：

procedure TForm1.SetTextColor(ForeClr, BackClr: TColor);

var Hand: THandle;

begin

Hand:= GetDesktopHand;

Listview_SetTextColor(Hand,ForeClr); // 设置文字前景色；

Listview_SetTextBkColor(Hand,BackClr); // 设置文字背景色，crNone 为透明；

Listview_RedrawItems(Hand,0,Listview_GetItemCount(Hand)); // 重画；

end;

有人答了。接分

楼上的看原理还行，lz试一下，可以就放分