名前 題名 ▼ Mr.XRAYさん > > 参考までに,IShellUIHelperを使用したコードです. > > TEmbeddedWBコンポーネントですと,内部で処理してくれますので, > 例えば,以下のようにダイアログを表示できます. > > [942_TEmbeddedWBコンポーネント] > http://mrxray.on.coocan.jp/Delphi/plSamples/942_TEmbeddedWB.htm > > procedure TForm1.Button1Click(Sender: TObject); > begin > EmbeddedWB1.AddToFavorites(EmbeddedWB1.LocationURL, > EmbeddedWB1.Doc2.title); > end; > > > あるいは,TFavoritesMenuコンポーネントを配置して, > > procedure TForm1.FormCreate(Sender: TObject); > begin > FavoritesMenu1.CreateMenu; > end; > > procedure TForm1.Button1Click(Sender: TObject); > begin > FavoritesMenu1.AddFavorite(nil); > end; GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link