//可以使用MoveWindow或SetWindowPos改变外部程序的大小和位置<br>//例子<br>var hEdit:HWND;<br>begin<br> hEdit := FindWindow('Notepad',nil);<br> if hEdit <> 0 then<br> begin<br> MoveWindow(hEdit,10,10,400,200,TRUE);<br> end<br> else<br> ShowMessage('错误!请先启动记事本程序!');<br>end;