玩转Windows桌面图标

大家一定和我一样对Windows的桌面十分不满意吧。那就拿起手术刀（Delphi）给它动动手术。

首先要对付的是桌面图标那一个个难看的、带有背景色的文字，不仅看上去别扭，还遮住了漂亮的墙纸，一定要去掉它，把它变成透明。其次就是图标的位置，只会傻傻地呆在屏幕的左边，还得我们一个个去拖，真累！给它来点新花样，Please Follow Me！

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;

 

有了上面的两个方法，你已经可以对桌面动小手术了。下面介绍图标的排列方式。

 

4、  以屏幕的中心为圆点作圆形排列：

procedure TForm1.Circle(r: integer);   // 形参 r 为半径；

var

 i, Count, CenterX, CenterY, TempR :integer;

 Hand: THandle;

 Radian: double;

 TempRect: TRect;

 DesktopHeight,DesktopWidth :integer;

 X, Y : Word;

begin

 Hand:=GetDesktopHand;

 SystemParametersInfo(SPI_GetWorkArea,0,@TempRect,0); // 取得工作区域；

 DesktopWidth:=TempRect.Right - TempRect.Left; // 工作区的宽（即屏幕的宽）；

 DesktopHeight:= TempRect.Bottom - TempRect.Top; // 工作区的高（即屏幕的高）；

 CenterX:=DesktopWidth div 2; // 取得圆心 X 坐标；

 CenterY:=DesktopHeight div 2; // 圆心 Y 坐标；

 if CenterX>CenterY then

    TempR:=CenterY

 else

    TempR:=CenterX; 

 if r>TempR then r:=TempR; // 半径不能超过屏幕中心点到四边的最短距离；

 Count:=Listview_GetItemCount(Hand); // 桌面上图标个数；

 Radian:=2*3.14159/Count; // 相邻图标间的弧度；

 for i:=0 to Count-1 do

begin

 // 第一个图标排在正上方；

      X:=Integer(CenterX+Trunc(r*Sin(i*Radian))); // 图标的X坐标；

      Y:=Integer(CenterY+Trunc(r*Cos(i*Radian))); // 图标的Y坐标；

      SendMessage(Hand,LVM_SetItemPosition,i,MakeLparam(X, y)); // 设置坐标；

    end;

end;

 

5、  图标右对齐：

procedure AlignRight(Rec: Integer); // 形参 Rec 为一个图标所占区域大小，一般为77；

var Hand: THandle;

   h, I, j, DesktopHight, DesktopWidth :integer;

   TempRect : TRect;

Begin

Hand:=GetDesktopHand;

 SystemParametersInfo(SPI_GetWorkArea,0,@TempRect,0); // 取得工作区域；

  DesktopWidth:=TempRect.Right - TempRect.Left; // 工作区的宽（即屏幕的宽）；

 DesktopHeight:= TempRect.Bottom - TempRect.Top; // 工作区的高（即屏幕的高）；

 I:=0; // 图标所排的列数

 J:=0;

 For h:=0 to Listview_GetItemCount(Hand)-1 do

Begin

 Inc(j);

 If j*rec>DesktopHeight then // 排完一列；

    Begin

      Inc(i); // 换列

      J:=1;

    End;

 SendMessage(Hand,LVM_SetItemPosition,h,

MakeLparam(DesktopWidth-Rec*(I+1),Rec*(j-1));

End; // for 循环结束；

End;

 

6、  在按钮的单击事件中加入代码：

procedure TForm1.Button1Click(Sender: TObject);

begin

 SetTextColor(clBlack,crNone); // 设置图标文字颜色；

 Circle(200); // 把图标排列成半径为200的圆；

 // AlignRight(77)； // 右对齐；

end;

 

编译运行，单击按钮。哇塞！太棒了！你还可发挥你的想象力，对程序稍加改进，把图标排成蛇形、椭圆形、环形等等。以上程序在 Win98+Delphi5下运行通过。

 

 http://blog.youkuaiyun.com/apollo47/archive/2001/05/17/9379.aspx