查看QQ在线状态原理？？？

Question

现在网上的各种查看QQ在线状态的软件好像都不能用了，不知谁有现在可以正常使用的这类软件，软件名字是什么？
有哪位高手知道这种软件的实现原理，请指教一下，谢谢！！！

Answer 1

当我们把QQ
  主窗体拖到桌面顶部后，放开鼠标，他就会自动
  缩上去，鼠标移到他身上时又会重新出现！
   请问谁有研究过教我一下吧？
我写了但没有用：
procedure TForm1.CMMouseEnter(var message: TMessage);
begin
{if top=-17 then
begin//2
Height:=65 ;
SetCapture(Handle);
end;//2     // 激活窗口
}
 case Message.Msg of
    CM_MOUSEENTER:begin
                     SetCapture(Handle);
                     if Self.Height <= 0 then
                        self.Height := 30;
                     self.Invalidate;
                  end;
    end;
end;procedure TForm1.CMMouseLeave(var Message: TMessage);
//var
//  Pt: TPoint;
begin
  {GetCursorPos(Pt);
  if not PtInRect(Bounds(Left, Top, Width, Height), Pt)
  then  // 做此判断为过滤
  begin//1
   if top=-17 then
   begin//2
    Height:=1;
    ReleaseCapture;
   end;//2
   end;//1
  }
 case Message.Msg of
     CM_MOUSELEAVE: begin                      if self.Height > 30 then
                        self.Height := 0;
                      self.Invalidate;
                      ReleaseCapture;
                    end;     end;
end;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button= mbLeft then
begin
ReleaseCapture;
SendMessage(Handle , WM_NCLBUTTONDOWN, HTCAPTION, 0);end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
top:=-17;
left:=300;
height:=30;
end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if top<0 then
   top:=-100;
end;

Answer 2

大家帮忙UP一下，难道Delphi中没有高手了吗？是不是都跑VC中去了？

Answer 3

WANGYISE(蓝平):
   老兄，麻烦你讲详细点，调用腾讯网站上的什么网页？举个例子把网址列出来，谢了！