请问腾迅的QQlive是p2p的吗？ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061030224722188.html
网管说我这边大量向外发包，把我网络给停了。可我当时只是用QQLive看片，不知道是不是QQLive的原因，还是其它什么。

是P2P的。如果在网吧开个这样的软件，别人不用玩网络游戏了。

How   to   Show   Balloon   tooltip   in   my   program?  
  //圆角提示框  
   
  {   copyright   kingron   }  
     
   
  procedure   ShowBalloonTip(Control:   TWinControl;   Icon:   integer;   Title:   pchar;   Text:  
      PWideChar);  
  const  
      TOOLTIPS_CLASS   =   'tooltips_class32';  
      TTS_ALWAYSTIP   =   $01;  
      TTS_NOPREFIX   =   $02;  
      TTS_BALLOON   =   $40;  
      TTF_SUBCLASS   =   $0010;  
      TTF_TRANSPARENT   =   $0100;  
      TTF_CENTERTIP   =   $0002;  
      TTM_ADDTOOL   =   $0400   +   50;  
      TTM_SETTITLE   =   (WM_USER   +   32);  
      ICC_WIN95_CLASSES   =   $000000FF;  
  type  
      TOOLINFO   =   packed   record  
          cbSize:   integer;  
          uFlags:   integer;  
          hwnd:   THandle;  
          uId:   integer;  
          rect:   TRect;  
          hinst:   THandle;  
          lpszText:   PWideChar;  
          lParam:   integer;  
      end;  
  var  
      hWndTip:   THandle;  
      ti:   TOOLINFO;  
      hWnd:   THandle;  
  begin  
      hWnd   :=   Control.Handle;  
      hWndTip   :=   CreateWindow(TOOLTIPS_CLASS,   nil,  
          WS_POPUP   or   TTS_NOPREFIX   or   TTS_BALLOON   or   TTS_ALWAYSTIP,  
          0,   0,   0,   0,   hWnd,   0,   HInstance,   nil);  
      if   hWndTip   <>   0   then  
      begin  
          SetWindowPos(hWndTip,   HWND_TOPMOST,   0,   0,   0,   0,  
              SWP_NOACTIVATE   or   SWP_NOMOVE   or   SWP_NOSIZE);  
          ti.cbSize   :=   SizeOf(ti);  
          ti.uFlags   :=   TTF_CENTERTIP   or   TTF_TRANSPARENT   or   TTF_SUBCLASS;  
          ti.hwnd   :=   hWnd;  
          ti.lpszText   :=   Text;  
          Windows.GetClientRect(hWnd,   ti.rect);  
          SendMessage(hWndTip,   TTM_ADDTOOL,   1,   integer(@ti));  
          SendMessage(hWndTip,   TTM_SETTITLE,   Icon   mod   4,   Integer(Title));  
      end;  
  end;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      ShowBalloonTip(Button1,   1,   'Title',  
          'Balloon   tooltip,http://kingron.myetang.com');  
      //4种Icon：0：无图标,1提示，2：警告，3：错误  
  end;