delphi 如何指定外部程序窗体尺寸

找到外部程序窗体的Handle，然后：

SetWindowPos(Handle,HWND_NOTOPMOST,0,0,646,600,SWP_FRAMECHANGED and SWP_DRAWFRAME and SWP_SHOWWINDOW)

具体用法找查找SetWindowPos API函数。

//隐藏外部程序的窗体

procedure

TForm1.Button1Click(Sender:

TObject)

var

hw:THandle

begin

hw:=Findwindow(nil,'窗体标题')

ShowWindow(hw,SW_HIDE)

end

//显示外部程序的窗体

procedure

TForm1.Button4Click(Sender:

TObject)

var

hw:THandle

begin

hw:=Findwindow(nil,'窗体标题')

ShowWindow(hw,SW_SHOW)

end

代码中'窗体标题'处可能要修改为：'tomcat'

，具体视tomcat的窗体标题栏文字而定。

---