玩转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);