玩转Windows桌面图标<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
大家一定和我一样对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下运行通过。
分享到:
相关推荐
一个可以把桌面的图标玩转的号东西 windows 7 转盘特效快捷方式抢先体验CircleDock
Multiplayer Robot Windows桌面客户端旨在使玩转游戏变得轻松便捷。 主应用程序窗口遵循简约设计,并镜像网站上的元素。 它会自动执行以下所有步骤:从Web服务下载Civilization保存文件,将其放置在必要的本地目录中...
8012-增加/更改桌面图标 8013-保持桌面时钟的准确 8014-停用新安装项目在程式选择表上以黄色显示 8015-停用使用中程式在工具列堆叠显示 8016-停用程式选择表分行显示 8017-增加在工具列平列显示开启程式的数量...
而且在运行系统时进行硬盘操作时明显感觉变慢,在运行一些大的软件时CPU占用率时常达到100%而产生停顿,玩一些大型3D游戏时画面时有明显停顿,出现以上问题时大家最好看看自己硬盘的DMA模式是不是被Windows系统自行...
8、修正“时间_时间戳转文本”代码不严谨出现数组错误的BUG,感谢易友[455275321]反馈。 MD5:3E66BFA15806DEAFBCF11806EB99CC11 精易模块 V5.13 what’s new:(20150202) 1、修正“编码_ansi到usc2”当末尾出现10...
然后你可以发现桌面的右下角也增加了一个绿色花朵似的小图标,在有人向你发送聊天信息时,会变为闪烁的对方头像。 第一使用icq,你就看到主界面有东西在闪动,那是表示有信息,我们点击就会看到一个窗口,信息...
8个目标文件 简单 JavaScript万年历 显示出当前时间及年份,还可以选择年份及月份和日期 Java编写的HTML浏览器 一个目标文件 摘要:Java源码,网络相关,浏览器 Java编写的HTML浏览器源代码,一个很简单甚至不算是...
下次就点击桌面图标进入系统。 ▲内容扩展:本软件具有开放的内容可扩展性!用户可以自行在Microsoft Office Access 或Microsoft Office Excel 中添加编辑生字库。当然也可以对生字库中的内容进行修改,比如使用中...
8个目标文件 简单 JavaScript万年历 显示出当前时间及年份,还可以选择年份及月份和日期 Java编写的HTML浏览器 一个目标文件 摘要:Java源码,网络相关,浏览器 Java编写的HTML浏览器源代码,一个很简单甚至不算是...
学会些DOS知识会让你在电脑世界里玩的更痛快,面对棘手问题的时候更加游刃有余。虽然DOS已经很老了但它还没到隐退江湖的年代,我们拥有Windows,但是我们还需要DOS! 二、对“菜鸟”朋友学习DOS的建议: 在...