如何将运行的Word或Excel等office软件在代码中最小化（最大化时）或最大化（在最小化时）

Question

如题

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
begin
  wordapplication1.Visible:=true;
 wordapplication1.WindowState:=wdWindowStateMinimize;end;
----------------------------------------
注:wdWindowStateMaximize--最大化 
   wdWindowStateNormal--正常 
   wdWindowStateMinimize--最小化 

Answer 2

这是最小化所有窗体的程序，供你参考var
  h:HWnd;
begin
  h:=handle;
  while h > 0 do
  begin
  if isWindowVisible(h)  then
  postmessage(h,WM_SYSCOMMAND,SC_MINIMIZE,0);
  h:=getnextwindow(h,GW_HWNDNEXT);
  end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  dd:olevariant;
begin
  dd:=getactiveoleobject('word.application');
  dd.WindowState:=2;//最小化
  showmessage('stop');
  dd.windowstate:=1; //最大化
end;