delphi源雅虎音乐.docVIP

unit uYahooMusic; {作者，束继涛，转载请保留原注释！！HTTP:\\，作者QQ interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, XPMan, jpeg, OleCtrls,WinSock, WMPLib_TLB, ComCtrls, IdBaseComponent, SHDocVw,IdComponent, ComObj, IdTCPConnection, IdTCPClient,mshtml, ActiveX, IdHTTP, idURI,WinInet,MMSystem, JvComponent, JvTrayIcon, Menus,PerlRegEx, Gauges, IdAntiFreezeBase, IdTCPServer,StrUtils, WinSkinData, IdAntiFreeze; type TfYahooMusic = class(TForm) pnl1: TPanel; pnl2: TPanel; edt1: TEdit; btn1: TButton; rb1: TRadioButton; xpmn1: TXPMan; rb2: TRadioButton; rb3: TRadioButton; img1: TImage; wndwsmdplyr1: TWindowsMediaPlayer; pnl3: TPanel; btn2: TButton; btn3: TButton; TrackBar1: TTrackBar; IdHTTP1: TIdHTTP; chk1: TCheckBox; jvtrycn1: TJvTrayIcon; pm1: TPopupMenu; N1: TMenuItem; tmr1: TTimer; lv1: TListView; mmo1: TMemo; mmo3: TMemo; btn4: TButton; Gauge1: TGauge; pm2: TPopupMenu; N2: TMenuItem; IdAntiFreeze1: TIdAntiFreeze; IdHTTP2: TIdHTTP; edt2: TEdit; lbl1: TLabel; function GetStringBetween(const FullStr, StrLeft, StrRight: String): string; procedure btn2Click(Sender: TObject); procedure TrackBar1Change(Sender: TObject); procedure chk1Click(Sender: TObject); procedure TrackBar2Change(Sender: TObject); procedure btn3Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure lv1Click(Sender: TObject); procedure btn4Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure IdHTTP2Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer); procedure IdHTTP2WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); procedure btn1Click(Sender: TObject); private function GetNextPage: string; function GetHTML: