Sie können das referrer nicht einstellen, wenn Sie shellexecute Funktion verwenden.
Um das referrer einzustellen müssen Sie COM verwenden einwenden und IWebBrowser Schnittstelle:
Gebrauch
SHDocVw;
var
Browser: IWebBrowser2; // sollte es globale oder der Form Variable, aber nicht Einheimisches sein
Verfahren TForm1.Button3Click (Absender
: TObject);
var
URL, Markierungsfahnen, Überschriften, TargetFrameName, PostData: OLEVariant;
anfangen
Browser: = CoInternetExplorer.Create;
(Browser.Get_Application als IWebBrowserApp). Sichtbar: = ausrichten;
Markierungsfahnen: = „0“;
TargetFrameName: = '';
PostData: = '';
Überschriften: = „Referer: “ + '
http://google.com' + #10 + #13;
URL: = '
http://www.whatismyreferrer.com/';
Browser.Navigate2 (URL, Markierungsfahnen, TargetFrameName, PostData, Überschriften);
Ende;