procedure TForm1.Button2Click(Sender: TObject);
var
url:string;
begin
url:='http://mp3.zhongsou.com/zsmp3?word=%BD%AD%C4%CF&ty=1';
WebBrowser1.Navigate(url);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
node:IHTMLElement;
begin
node:=(WebBrowser1.Document as IHTMLDocument3).documentElement;
DisplayMsg(node.outerHTML);
end;
procedure TForm1.Displaymsg(s: string);
begin
Memo1.Lines.Add(s)
end;