在WebBrowser里使用Referer

procedure NavRef(url,ref:string,wbWeb:twebbrowser);
var
Flags, Headers, TargetFrameName, PostData: OLEVariant;
begin
Flags := '1';
TargetFrameName := '';
PostData := '';
Headers := 'Referer: ' + Ref ;
wbWeb.Navigate(Url, Flags, TargetFrameName, PostData, Headers);
end;