procedure TForm1.Button2Click(Sender: TObject); 
var 
    i: Integer; 
begin 
    if Webbrowser1.OleObject.Document.Frames.Length <> 0 then 
    for i := 0 to Webbrowser1.OleObject.Document.Frames.Length - 1 do 
    begin 
        Listbox1.Items.Add(Webbrowser1.OleObject.Document.Frames.item(i).Document.URL); 
    end; 
end; 
Listbox1.Items.Add(Webbrowser1.OleObject.Document.Frames.item(i).Document.URL); 
因其中一个URL是跨站的,所以此时出现“拒绝访问”错误,搜了好久找有结果