getwindowrect不能正确使用，请指教

getwindowrect不能正确使用，请指教 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiAPI/html/delphi_20061116121147219.html
ha:hwnd;  
      i:integer;  
      begin  
  ha:=findwindow(nil,pchar(excelapplication1.caption));  
  showmessage(inttostr(ha));  
  getwindowrect(ha,posi);  
  showmessage(inttostr(posi.TopLeft.X));  
  为何   posi.left,posi.topleft.x   的值均为零，不能正确返回excel窗口的正确位置，  
  不知道代码错在那里？  
   
 

procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      Rect:TRect;  
  begin  
      GetWindowRect(Handle,Rect);  
      ShowMessage(inttostr(Rect.Left));  
  end;  
   
  我这个代码是可以的，有可能是你的posi没有定义成TRect；

转载于:https://www.cnblogs.com/delphi2007/archive/2009/02/03/1382850.html