怎么样由一个程序去控制另外一个程序最大化、最小化？

Question

我有一个后台运行的程序，需要有另外一个程序来控制它的显示和不显示，怎么写？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  fh : THandle;
begin
  fh := Findwindow('notepad',nil);
  if fh > 0 then
  begin
    SendMessage(fh, WM_SysCommand,SC_MAXIMIZE,0);
    SetActiveWindow(fh);
  end
end;procedure TForm1.Button2Click(Sender: TObject);
var
  fh : THandle;
begin
  fh := Findwindow('notepad',nil);
  if fh > 0 then
  begin
    SendMessage(fh, WM_SysCommand,SC_MINIMIZE,0);
    SetActiveWindow(fh);
  end
end;

Answer 2

var h: HWND;  // 全局// 最小化
  h := FindWindow(nil, PChar(Edit1.Text));
  ShowWindow(h, SW_SHOWMINIMIZED);  // 或SW_HIDE// 最大化
  ShowWindow(h, SW_SHOWMAXIMIZED);