Как установить программно отображение рисунков в TWebBrowser

← →
Vasily_ © (2003-05-18 17:52) [0]

Проблема! Если в установках "Дополнительно" Internet Explorer снята метка "отображать рисунки", то в компоненте TWebBrowser рисунки также не отображаются.

Вопрос: как программно при загрузке собственной программы установить метку "отображать рисунки" для того, чтобы они отражались в компоненте TWebBrowser.

Кто знает, ответ дайте как можно подробней.
Заранее благодарен за помощь.

← →
Song © (2003-05-18 18:02) [1]

Наверно, в реестре эта установочка прописывается. Она глобальная для всей системы. Поэтому отдельно для приложения не получится. Или пишите свой браузер.
Чтобы найти, скачайте RegMonitor и попереключайте. Увидите, что меняется.

← →
Ihor Osov'yak © (2003-05-18 18:07) [2]

2 Vasily_ ©

посмотри на http://www.euromind.com/iedelphi
TEmbeddedWB - там это реализовано - property DownloadOptions .. Или его юзай, или перенеси соотв. кусок кода в свой наследник от TWebBrowser (я собственно так и делаю)

← →
Ihor Osov'yak © (2003-05-18 18:08) [3]

Зы - имеет эффект для конкретного екземпляра, естественно..

Да, вспомнил - в одном из старых проектов делал - в реестри - см. ниже (если все же такой вариант интересует). Это чтение, но запись, думаю, сделаешь сам..

const IERegPath = "Software\Microsoft\Internet Explorer\Main"; pnInlGr = "Display Inline Images"; function ReadIESettingEnGr:boolean; var Reg: TRegistry; s:string; begin result := false; Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey(IERegPath, False) then begin if Reg.ValueExists(pnInlGr) then begin s:=Reg.ReadString(pnInlGr); result:= lowercase(s)="yes"; end; end; finally Reg.Free; end; end;

В дополнение. Компонента, которую упомянул Игорь, имеет событие OnGetOptionKeyPath. В этом событии можно указать ключ в реестре, куда записывать и откуда читать настройки браузера. Так что Song не прав, говоря, что отдельно для приложения не получится.

Как установить программно отображение рисунков в TWebBrowser Найти похожие ветки