移动Windows开始按钮到任务栏中的任何位置

摘　要：如何改变Windows开始按钮的位置？
　关键字：开始按钮 API
　类　别：API

开始一个新的工程，为窗体指定以下属性：

Align = top;
width = screen.width;

然后，在OnMouseMove事件中加入以下代码：

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
p: tpoint;
begin
getcursorpos(p);
movewindow(FindWindowEx(FindWindow(''Shell_TrayWnd'', nil), 0, ''Button'', nil),x,y,25,25,true);
end;


运行应用程序，当你的鼠标在窗体中移动时，你会发现，开始按钮被最小化了，并随着你的鼠标移动。

试试下面的，你会对桌面上发生的事情感到高兴。

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
p: tpoint;
begin
getcursorpos(p);
movewindow(FindWindowEx(FindWindow(''Shell_TrayWnd'', nil), 0, ''ReBarWindow32'', nil),x,y,25,25,true);
end;