Вопрос : Установите referer когда открытый url с Shellexecute

Здравствулте!,

How может я установить referrer когда открыто URL с shellexecute function class=

Ответ : Установите referer когда открытый url с Shellexecute

Вы не можете установить referrer если вы используете функцию shellexecute.

Для того чтобы установить referrer вы должны использовать COM возражаете и поверхность стыка IWebBrowser:

пользы
  SHDocVw;

var
  Браузер: IWebBrowser2; // это должно быть перемеююый глобального или формы, но не local

процедура TForm1.Button3Click (прислужник: TObject);
var
  Url, флаги, коллекторы, TargetFrameName, PostData: OLEVariant;
начните
  Браузер: = CoInternetExplorer.Create;
  (Browser.Get_Application как IWebBrowserApp). Видимо: = True;
  Флаги: = «0»;
  TargetFrameName: = '';
  PostData: = '';
  Коллекторы: = «Referer: » + 'http://google.com' + #10 + #13;
  Url: = 'http://www.whatismyreferrer.com/';
  Browser.Navigate2 (Url, флаги, TargetFrameName, PostData, коллекторы);
конец;