这个问题有点怪

Question

我想得到其它应用程序的窗口大小和区域，不知道怎么办？请高手指点。
最好能有源代码。

Answer 1

var aRect: TRect; GetWindowRect(Handle,aRect);

Answer 2

procedure Tfrm.CMMouseEnter(var Msg: TMessage);
var
  anObject: TObject;
  i:integer;
begin
  Inherited;
  anObject := TObject(Msg.lParam);
    if anobject=‘窗口名字’ then
    //加粗
end;procedure Tfrm.CMMouseLeave(var Msg: TMessage);
var
  anObject: TObject;
  i:integer;
begin
  inherited;
  anObject := TObject(Msg.lParam);
  if anobject=‘窗口名字’ then
     //变回原来
end;