• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

玩转Windows桌面图标_Delphi

Delphi 搞代码 3年前 (2018-08-09) 159次浏览 已收录 0个评论

大家一定和我一样对Windows的桌面十分不满意吧。那就拿起手术刀(Delphi)给它动动手术。
首先要对付的是桌面图标那一个个难看的、带有背景色的文字,不仅看上去别扭,还遮住了漂亮的墙纸,一定要去掉它,把它变成透明。其次就是图标的位置,只会傻傻地呆在屏幕的左边,还得我们一个个去拖,真累!给它来点新花样,Please Follow Me!

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

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

function TForm1.GetDesktopHand: THandle;

begin

http://www.gaodaima.com/?p=65809玩转Windows桌面图标_Delphi

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下运行通过。 

欢迎大家阅读《玩转Windows桌面图标_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址