如何使用API函数来找到指定窗体？我想让在后台的窗体跳到前面来

Question

怎么样将在后台的窗体跳到前面来
比如某个窗体Form1
我怎么样在另一个程序里面，让这个窗体跳到最前面来，让它显示出来

Answer 1

procedure SwitchToThisWindow(h1: hWnd; x: bool); stdcall;
  external user32 Name 'SwitchToThisWindow';
         {x = false: Size unchanged, x = true: normal size}
procedure TForm1.Button2Click(Sender: TObject);
begin
  SwitchToThisWindow(FindWindow('notepad', nil), True);
end;

Answer 2

SetForegroundWindow(FindWindow('notepad', nil));

Answer 3

查找指定窗体使用FindWindow这个API函数
窗体跳到最前面来有好多个API函数：SetWindowPos, SetWindowActive....