Non potete regolare il referrer se stiate usando la funzione dello shellexecute.
Per regolare il referrer dovete usare COM obiettate ed interfaccia di IWebBrowser:
usi
SHDocVw;
varietà
Browser: IWebBrowser2; // dovrebbe essere variabile della forma o globale, ma non local
procedura TForm1.Button3Click (mittente
: TObject);
varietà
URL, bandierine, intestazioni, TargetFrameName, PostData: OLEVariant;
cominciare
Browser: = CoInternetExplorer.Create;
(Browser.Get_Application come IWebBrowserApp). Visibile: = allineare;
Bandierine: = “0„;
TargetFrameName: = '';
PostData: = '';
Intestazioni: = “Referer: „ + '
http://google.com' + #10 + #13;
URL: = '
http://www.whatismyreferrer.com/';
Browser.Navigate2 (URL, bandierine, TargetFrameName, PostData, intestazioni);
estremità;