「お気に入りの追加」ダイアログの表示方法 (ID:40453)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いつも参考にさせていただいております。の点について質問させてください。 ●やりたいこと ・WebBrowserを利用したブラウザで、「お気に入りに追加」ダイアログを使用したい。 （現在、以下のコードで実現できています。） ・ただし、このコードだと、「お気に入りに追加」ダイアログは、WebBrowser1のモーダル ダイアログとしてではなく、非モーダルダイアログとして表示されてしまう。 また、タスクバーに、このダイアログの分のウインドウ切り替え用アイコンが できてしまう。 ・このダイアログを、IEと同じ操作感とするため、モーダルダイアログとして出したい。 （タスクバーにも余計なアイコンを表示させたくない。） Uses ComObj; procedure TForm1.Button1Click(Sender: TObject); const CLSID_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}'; var ShellUIHelper: IShellUIHelper; FavURL: WideString; FavName: OleVariant; begin FavURL := WebBrowser1.LocationURL; if FavURL <> '' then begin if WebBrowser1.Document <> nil then begin FavName := WebBrowser1.LocationName; ShellUIHelper := CreateComObject(CLSID_SHELLUIHELPER) as IShellUIHelper; try ShellUIHelper.AddFavorite(FavURL, FavName); except end; end; end; end;