Pergunta : Ajustar o referer quando URL aberto com Shellexecute

Olá!, o

How pode mim ajustar o referrer quando aberto um URL com shellexecute function class= do

Resposta : Ajustar o referer quando URL aberto com Shellexecute

Você não pode ajustar o referrer se você está usando a função do shellexecute.

Para ajustar o referrer você tem que usar COM objeta e relação de IWebBrowser:

usos
  SHDocVw;

var
  Navegador: IWebBrowser2; // deve ser variável global ou do formulário, mas não local

procedimento TForm1.Button3Click (remetente: TObject);
var
  URL, bandeiras, encabeçamentos, TargetFrameName, PostData: OLEVariant;
começar
  Navegador: = CoInternetExplorer.Create;
  (Browser.Get_Application como IWebBrowserApp). Visível: = retificar;
  Bandeiras: = “0”;
  TargetFrameName: = '';
  PostData: = '';
  Encabeçamentos: = “Referer: ” + 'http://google.com' + #10 + #13;
  URL: = 'http://www.whatismyreferrer.com/';
  Browser.Navigate2 (URL, bandeiras, TargetFrameName, PostData, encabeçamentos);
extremidade;