Usted no puede fijar el referrer si usted está utilizando la función del shellexecute.
Para fijar el referrer usted tiene que utilizar a COM se opone e interfaz de IWebBrowser:
aplicaciones
SHDocVw;
var
Hojeador: IWebBrowser2; // debe ser variable global o de la forma, pero no local
procedimiento TForm1.Button3Click (remitente
: TObject);
var
URL, banderas, jefes, TargetFrameName, PostData: OLEVariant;
comenzar
Hojeador: = CoInternetExplorer.Create;
(Browser.Get_Application como IWebBrowserApp). Visible: = verdad;
Banderas: = “0”;
TargetFrameName: = '';
PostData: = '';
Jefes: = “Referer: ” + '
http://google.com' + #10 + #13;
URL: = '
http://www.whatismyreferrer.com/';
Browser.Navigate2 (URL, banderas, TargetFrameName, PostData, jefes);
extremo;