//聲明:
SetWindowPos(
  hWnd: HWND;            {窗口句柄}
  hWndInsertAfter: HWND; {窗口的 Z 順序}
  X, Y: Integer;         {位置}
  cx, cy: Integer;       {大小}
  uFlags: UINT           {選項}
): BOOL;

//hWndInsertAfter 參數可選值:
HWND_TOP       = 0;        {在前麵}
HWND_BOTTOM    = 1;        {在後麵}
HWND_TOPMOST   = HWND(-1); {在前麵, 位於任何頂部窗口的前麵}
HWND_NOTOPMOST = HWND(-2); {在前麵, 位於其他頂部窗口的後麵}

//uFlags 參數可選值:
SWP_NOSIZE         = 1;    {忽略 cx、cy, 保持大小}
SWP_NOMOVE         = 2;    {忽略 X、Y, 不改變位置}
SWP_NOZORDER       = 4;    {忽略 hWndInsertAfter, 保持 Z 順序}
SWP_NOREDRAW       = 8;    {不重繪}
SWP_NOACTIVATE     = $10;  {不激活}
SWP_FRAMECHANGED   = $20;  {強製發送 WM_NCCALCSIZE 消息, 一般隻是在改變大小時才發送此消息}
SWP_SHOWWINDOW     = $40;  {顯示窗口}
SWP_HIDEWINDOW     = $80;  {隱藏窗口}
SWP_NOCOPYBITS     = $100; {丟棄客戶區}
SWP_NOOWNERZORDER  = $200; {忽略 hWndInsertAfter, 不改變 Z 序列的所有者}
SWP_NOSENDCHANGING = $400; {不發出 WM_WINDOWPOSCHANGING 消息}
SWP_DRAWFRAME      = SWP_FRAMECHANGED; {畫邊框}
SWP_NOREPOSITION   = SWP_NOOWNERZORDER;{}
SWP_DEFERERASE     = $2000;            {防止產生 WM_SYNCPAINT 消息}
SWP_ASYNCWINDOWPOS = $4000;            {若調用進程不擁有窗口, 係統會向擁有窗口的線程發出需求}

//舉例:
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWindowPos(Handle, HWND_TOPMOST, 0,0, 100,200, SWP_SHOWWINDOW);
end;