Does Tencent QQ live belong to P2P? Delphi/Windows SDK/API
Http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061030224722188.html
The Network Manager said that I had a large number of outgoing packets and stopped my network. But I used qqlive to watch the video. I don't know if it's the reason for qqlive or what else.
It is P2P. If you open such software in an Internet cafe, you don't need to play online games.
How to show balloon tooltip in my program?
// Rounded corner prompt box
{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 ');
// Four icons: 0: No icon, 1 prompt, 2: warning, 3: Error
End;