Question : Placer le referer quand URL ouvert avec Shellexecute

Bonjour, le

How peut je placer le referrer si ouvert un URL avec le shellexecute function class= de

Réponse : Placer le referer quand URL ouvert avec Shellexecute

Vous ne pouvez pas placer le referrer si vous employez la fonction de shellexecute.

Pour placer le referrer vous devez employer COM objectez et interface d'IWebBrowser :

utilisations
  SHDocVw ;

variété
  Navigateur : IWebBrowser2 ; // ce devrait être variable globale ou de la forme, mais pas gens du pays

procédé TForm1.Button3Click (expéditeur : TObject) ;
variété
  URL, drapeaux, en-têtes, TargetFrameName, PostData : OLEVariant ;
commencer
  Navigateur : = CoInternetExplorer.Create ;
  (Browser.Get_Application comme IWebBrowserApp). Évident : = rectifier ;
  Drapeaux : = « 0 » ;
  TargetFrameName : = '' ;
  PostData : = '' ;
  En-têtes : = « Referer :  » + 'http://google.com' + #10 + #13 ;
  URL : = 'http://www.whatismyreferrer.com/' ;
  Browser.Navigate2 (URL, drapeaux, TargetFrameName, PostData, en-têtes) ;
extrémité ;