MoveWindow - 改变窗口的位置与大小

//声明:
MoveWindow(
  hWnd: HWND;               {窗口句柄}
  X, Y: Integer;            {位置}
  nWidth, nHeight: Integer; {大小}
  bRepaint: BOOL            {是否重绘}
): BOOL;


//举例:
procedure TForm1.Button1Click(Sender: TObject);
begin
  MoveWindow(Button1.Handle, 0, 0, ClientWidth, ClientHeight, True);
end;

//效果图: