Vraag : Vastgestelde referer wanneer open url met Shellexecute

Hello, kan

How ik referrer wanneer open een URL met shellexecute function plaatsen

Antwoord : Vastgestelde referer wanneer open url met Shellexecute

U kunt niet referrer plaatsen als u shellexecute functie gebruikt.

Om referrer te plaatsen moet u het voorwerp van Com en interface gebruiken IWebBrowser:

gebruik
  SHDocVw;

var
  Browser: IWebBrowser2; // het de globale of variabele van de vorm zou moeten zijn, maar niet lokaal

procedure TForm1.Button3Click (Afzender: TObject);
var
  Url, Vlaggen, Kopballen, TargetFrameName, PostData: OLEVariant;
begin
  Browser: = CoInternetExplorer.Create;
  (Browser.Get_Application als IWebBrowserApp). Zichtbaar: = Waar;
  Vlaggen: = „0“;
  TargetFrameName: = '';
  PostData: = '';
  Kopballen: = „Referer: “ + 'http://google.com' + #10 + #13;
  Url: = 'http://www.whatismyreferrer.com/';
  Browser.Navigate2 (Url, Vlaggen, TargetFrameName, PostData, Kopballen);
eind;