Fråga : Fastställd referer när öppen url med Shellexecute

Hälsningar

How kan den fastställda referreren för I, när de är öppna en URL med shellexecute function " klar "

Svar : Fastställd referer när öppen url med Shellexecute

Du kan inte uppsättningen referreren, om du använder shellexecute fungerar.

Till uppsättningen referreren du måste att använda COM anmärker, och IWebBrowser har kontakt:

bruk
  SHDocVw;

var
  Webbläsare: IWebBrowser2; // det bör vara den global eller datalistans variabeln, men inte lokalen

tillvägagångssätt TForm1.Button3Click (avsändare: TObject);
var
  Url sjunker, titelrader, TargetFrameName, PostData: OLEVariant;
börja
  Webbläsare: = CoInternetExplorer.Create;
  (Browser.Get_Application som IWebBrowserApp). Synligt: = True;
  Sjunker: = ”0”;
  TargetFrameName: = '';
  PostData: = '';
  Titelrader: = ”Referer: ” + 'http://google.com' + #10 + #13;
  Url: = 'http://www.whatismyreferrer.com/';
  Browser.Navigate2 (Url, sjunker, TargetFrameName, PostData, titelrader);
avsluta;