如何改变一个外部程序的位置?(50分,在线)(50分)

我用OLe打开了word程序.
WordApp := CreateOleObject('Word.Application');
WordApp.Documents.Open(FileName:=ExtractFilePath(Application.ExeName)+'new.tmp', ReadOnly:=false);
Wordapp.ActiveDocument.PageSetup.LeftMargin :=0;
Wordapp.ActiveDocument.PageSetup.rightMargin :=0;
Wordapp.activeDocument.PageSetup.PageWidth:=200;
WordApp.Visible := True;
word能够成功连接,并打开.我怎么改变word窗口的位置(x,y)?

需要吗

需要啊,不知道一楼是否有方法?

想做什么呢

你可用API函数：MOVEWINDOW(HWND:INTEGER,
X:INTEGER ,
Y:INTEGER, //移动到的点
WIDTH:INTEGER,
HEIGHT:INTEGER,//移动后窗体的宽和高度
BOOL:LONGBOOL);

谢谢楼上个位,看了以前的帖子,已经解决.

sl := TStringList.Create;
EnumWindows(@EnumWinProc, integer(sl));
for n := 0 to sl.Count-1 do
begin
if Pos('Microsoft Word',sl[n])>0 then
begin
handle1:=findwindow(nil,pchar(sl[n]));
SetWindowPos(Handle1,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE);
sl.Free;
exit;
end;
end;
sl.Free;