名前
題名
▼ Mr.XRAYさん > 参考までに，IShellUIHelperを使用したコードです． > これは，ダイアログのアイコンがタスクバーに(モードレス)表示されます． > Windows XP + IE6 > Vista + IE7 > Windows 7 U64 + IE8で表示されます． > > ダイアログのハンドルを操作して，タスクバーのアイコンを非表示に > もできますが，クラス名が#32770なのて，ちょっと面倒ですね． > もっとも，タスクバーに非表示にしても，モーダル表示となるわけでは > ありません． > > unit Unit1; > > interface > > uses > Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, > Dialogs, StdCtrls; > > type > TForm1 = class(TForm) > Button1: TButton; > procedure Button1Click(Sender: TObject); > private > { Private 宣言 } > public > { Public 宣言 } > end; > > var > Form1: TForm1; > > implementation > > uses SHDocVw, ComObj; > > {$R *.dfm} > > //============================================================================= > // お気に入りダイアログの表示(タスクバーにアイコン表示あり) > // > // IShellUIHelperの使用にはusesにSHDocVwが必要 > // CreateComObjectの使用にはusesにComObjが必要 > //============================================================================= > procedure TForm1.Button1Click(Sender: TObject); > var > UIHelper : IShellUIHelper; > AURL : String; > ATitle : OleVariant; > begin > UIHelper := CreateComObject(CLASS_ShellUIHelper) as IShellUIHelper; > AURL := 'http://mrxray.on.coocan.jp/'; > ATitle := '素敵なサイト'; > > UIHelper.AddFavorite(AURL, ATitle); > end; > > end.
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link