インターネットオプション

html2img Delphi

インターネットオプションの機能を追加しました。IEコンポーネントの機能を呼び出しただけです。

やり方は印刷機能作成のときとほとんど同じ。

機能 Execの引数
インターネットオプション HTMLID_OPTIONS

ソースのイメージはこんな感じ。

var
  ComTarget: IOleCommandTarget;
  pIn, pOut: OleVariant;
begin
  ComTarget := WebBrowser1.Document As IOleCommandTarget;
  if ComTarget <> Nil then begin
    pIn := NULL;
    pOut := NULL;
    ComTarget.Exec(@CGID_WebBrowser, HTMLID_OPTIONS, 0, pIn, pOut);
  end;
end;

この前、CMDSETID_Forms3だったところがCGID_WebBrowserに変わっています。