|
玩转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); // 换列
[1] [2] 下一页
[平面设计]如何得到、提取桌面图标或软件里面的小图片 [电脑技术]取消桌面图标文字的背景颜色
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
