程序（界面是一个长条）启动后停靠在桌面最上方，怎么让我的电脑等图标自动往下移动？（(100分)

lysandria · 2003-10-30

估计用API吧，我也不会，顶。

fangheling · 2003-10-30

oiwin · 2003-10-30

看看这文章你也许就明白了. 首先要对付的是桌面图标那一个个难看的、带有背景色的文字，不仅看上去别扭，还遮住了漂亮的墙纸，一定要去掉它，把它变成透明。其次就是图标的位置，只会傻傻地呆在屏幕的左边，还得我们一个个去拖，真累！给它来点新花样，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下运行通过。

桦树皮 · 2003-10-30

我说个办法，成不成不一定啊，只是个想法。 通过改写桌面窗口的窗口函数，让窗口高度变小，这样就留出一块空间让你的程序独占了吗？我觉得应该能行。说起来简单，但实现起来应该很麻烦。

fangheling · 2003-10-30

不仅仅是要桌面让出位置，而且是要全部的程序运行后都要让出位置， 也就是说我的程序是置顶的,其它的程序最大化后只能是夹在任务栏跟我的程序中间一样 唉，简单一点,就是相当于另一个任务栏一样

liujh · 2003-10-30

找到桌面那个窗口句柄，然后MoveWindow，不知道行不行，试试吧

Kingron · 2003-10-30

Desktop WordArea,ＡＰＩ：SystemParametersInfo(SPI_SETWORKAREA)

Kingron · 2003-10-30

procedure TForm1.FormCreate(Sender: TObject); var   R : TRect; begin   OldRect := Screen.WorkAreaRect;   R := OldRect;   FormStyle := fsStayOnTop;   Height := 30;   R.Top := R.Top + ClientHeight;   SystemParametersInfo(SPI_SETWORKAREA, 0, @R, SPIF_SENDCHANGE);   Top := 0;   Left :=0;   Width := Screen.Width; end; procedure TForm1.FormDestroy(Sender: TObject); begin   SystemParametersInfo(SPI_SETWORKAREA, 0, @OldRect, SPIF_SENDCHANGE); end;

fangheling · 2003-10-30

就是不要重叠,不是浮在上面的,是要跟当前活的空体并排 跟下面的任务栏一样 能行吗？

fangheling · 2003-10-30

ok,结!!!谢谢kingro

程序（界面是一个长条）启动后停靠在桌面最上方，怎么让我的电脑等图标自动往下移动？（(100分)

fangheling

Unregistered / Unconfirmed

lysandria

Unregistered / Unconfirmed

fangheling

Unregistered / Unconfirmed

oiwin

Unregistered / Unconfirmed

桦树皮

Unregistered / Unconfirmed

fangheling

Unregistered / Unconfirmed

liujh

Unregistered / Unconfirmed

Kingron

Unregistered / Unconfirmed

Kingron

Unregistered / Unconfirmed

fangheling

Unregistered / Unconfirmed

fangheling

Unregistered / Unconfirmed

Similar threads