名前
題名
▼ Mr.XRAYさん > こっちの方がいいような気がします > このコードでは，実際に追加作業もします． > > 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; > > function AddUrlToFavorites( > hWindow : HWND; > pszUrlW : LPCWSTR; > pszTitleW : LPCWSTR; > fDisplayUI : BOOL > ): Integer; stdcall; external 'shdocvw.dll'; > > var > Form1: TForm1; > > implementation > > {$R *.dfm} > > //============================================================================= > // お気に入りダイアログの表示(タスクバーにアイコン表示なし) > // > // 使用する関数のMSDNの記事より > // http://msdn.microsoft.com/en-us/library/aa753579%28v=VS.85%29.aspx > // > // STDAPI AddUrlToFavorites( > // HWND hwnd, > // LPCWSTR pszUrlW, > // LPCWSTR pszTitleW, > // BOOL fDisplayUI > // ); > //============================================================================= > procedure TForm1.Button1Click(Sender: TObject); > var > AURL : String; > ATitle : String; > fDisplayUI : Boolean; > begin > AURL := 'http://mrxray.on.coocan.jp/'; > ATitle := '素敵なサイト'; > //fDisplayUI := True;にするとダイアログを表示しない > fDisplayUI := False; > > AddUrlToFavorites(Handle, PChar(AURL), PChar(ATitle), fDisplayUI); > end; > > end.
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link