|
ｿｽ@ｿｽｿｽｿｽuｿｽｿｽｿｽCｿｽﾉ難ｿｽｿｽｿｽﾌ追会ｿｽｿｽvｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾌ表ｿｽｿｽｿｽｿｽｿｽ@
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽﾜゑｿｽｿｽｿｽ 2011/04/16(ｿｽy) 22:06:57
ｿｽ@ｿｽｿｽｿｽﾂゑｿｽQｿｽlｿｽﾉゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽﾌ点ｿｽﾉつゑｿｽｿｽﾄ趣ｿｽｿｽ竄ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽ閧ｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽEWebBrowserｿｽ利用ｿｽｿｽｿｽｿｽｿｽuｿｽｿｽｿｽEｿｽUｿｽﾅ、ｿｽuｿｽｿｽｿｽCｿｽﾉ難ｿｽｿｽｿｽﾉ追会ｿｽｿｽvｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽ@ｿｽiｿｽｿｽｿｽﾝ、ｿｽﾈ会ｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾅ趣ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽj
ｿｽ@ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽｿｽﾆ、ｿｽuｿｽｿｽｿｽCｿｽﾉ難ｿｽｿｽｿｽﾉ追会ｿｽｿｽvｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾍ、WebBrowser1ｿｽﾌｿｽｿｽ[ｿｽ_ｿｽｿｽ
ｿｽ@ｿｽ@ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾆゑｿｽｿｽﾄではなゑｿｽｿｽAｿｽモーｿｽ_ｿｽｿｽｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾆゑｿｽｿｽﾄ表ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽ@ｿｽﾜゑｿｽｿｽAｿｽ^ｿｽXｿｽNｿｽoｿｽ[ｿｽﾉ、ｿｽｿｽｿｽﾌダｿｽCｿｽAｿｽｿｽｿｽOｿｽﾌ包ｿｽｿｽﾌウｿｽCｿｽｿｽｿｽhｿｽEｿｽﾘゑｿｽﾖゑｿｽｿｽpｿｽAｿｽCｿｽRｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽ@ｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽEｿｽｿｽｿｽﾌダｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽAIEｿｽﾆ難ｿｽｿｽｿｽｿｽｿｽｿｽ感ｿｽﾆゑｿｽｿｽ驍ｽｿｽﾟ、ｿｽｿｽｿｽ[ｿｽ_ｿｽｿｽｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾆゑｿｽｿｽﾄ出ｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽ@ｿｽiｿｽ^ｿｽXｿｽNｿｽoｿｽ[ｿｽﾉゑｿｽ]ｿｽvｿｽﾈアｿｽCｿｽRｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽBｿｽj
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;
ｿｽﾈゑｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2011/04/19(ｿｽｿｽ) 12:46:28
ｿｽuｿｽｿｽｿｽCｿｽﾉ難ｿｽｿｽｿｽﾉ追会ｿｽｿｽvｿｽﾌｿｽｿｽ[ｿｽ_ｿｽｿｽｿｽﾈダｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽoｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ、
IEFrame.dllｿｽﾉゑｿｽｿｽｿｽDoAddToFavDlgｿｽﾖ撰ｿｽｿｽｿｽgｿｽｿｽｿｽﾎ出ｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAMSDNｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾆ、ｿｽｿｽｿｽﾌ関撰ｿｽｿｽﾍｿｽｿｽ[ｿｽ_ｿｽｿｽｿｽﾈダｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽ
ｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽﾛには「ｿｽｿｽｿｽCｿｽﾉ難ｿｽｿｽｿｽvｿｽﾌシｿｽｿｽｿｽ[ｿｽgｿｽJｿｽbｿｽgｿｽｿｽ
ｿｽ成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾈゑｿｽｿｽB
ｿｽﾈので、ｿｽVｿｽｿｽｿｽ[ｿｽgｿｽJｿｽbｿｽgｿｽｿｽ ｿｽｿｽｿｽﾌ関撰ｿｽｿｽﾌ返値ｿｽｿｽ1ｿｽﾌ趣ｿｽｿｽﾉ趣ｿｽｿｽOｿｽﾅ作成ｿｽｿｽｿｽｿｽ
ｿｽKｿｽvｿｽｿｽｿｽｿｽB
monaa 2011/04/19(ｿｽｿｽ) 12:51:25
ｿｽｿｽｿｽﾙ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾞ抵ｿｽｿｽOｿｽﾉｿｽｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽ辜鯉ｿｽXｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽB
shdocvw.dllｿｽﾅゑｿｽｿｽﾋ。
ｿｽﾜゑｿｽｿｽｿｽ 2011/04/22(ｿｽｿｽ) 20:31:57
ｿｽｿｽｿｽﾎらくｿｽｿｽｿｽｿｽｿｽﾄなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ回答ゑｿｽｿｽc
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽLｿｽ[ｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽ]ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾄ気ｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾆ、ｿｽｿｽｿｽﾜゑｿｽDelphiｿｽﾅの擾ｿｽｿｽﾍゑｿｽ
ｿｽｿｽｿｽ謔､ｿｽﾈのでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾆ趣ｿｽｿｽsｿｽｿｽｿｽしｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽlｿｽﾜゑｿｽｿｽｿｽｿｽ轤ｲｿｽｿｽｿｽkｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾌとゑｿｽｿｽﾍゑｿｽｿｽﾌとゑｿｽｿｽﾅ鯉ｿｽｿｽﾊゑｿｽ告ゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Mr.XRAY 2011/05/13(ｿｽｿｽ) 19:50:54
ｿｽﾝなゑｿｽｿｽこゑｿｽﾉゑｿｽｿｽﾍ．Mr.XRAYｿｽﾅゑｿｽｿｽD
AddUrlToFavoritesｿｽﾖ撰ｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽﾆ，ｿｽｿｽｿｽ竄ｳｿｽ黷ｽｿｽｿｽｿｽﾌ奇ｿｽ]ｿｽﾉ近ゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽ
ｿｽ謔､ｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽD
http://mrxray.on.coocan.jp/bbs/DelphiBBS/mrxray_delphifan_coffe.cgi?tree=s4745#4746
ｿｽｿｽｿｽﾌ関撰ｿｽｿｽﾍ過具ｿｽｿｽﾌ遺物ｿｽｿｽｿｽH 2011/05/13(ｿｽｿｽ) 21:36:49
>AddUrlToFavoritesｿｽﾖ撰ｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽﾆ，ｿｽｿｽｿｽ竄ｳｿｽ黷ｽｿｽｿｽｿｽﾌ奇ｿｽ]ｿｽﾉ近ゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽ
>ｿｽ謔､ｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽD
Mr.XRAYｿｽｿｽｿｽが難ｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽ黷ｽｿｽﾂ具ｿｽｿｽﾍ、
>ｿｽｿｽｿｽｿｽmｿｽFｿｽﾍ，Windows 7 U64 + Delphi 2010(UP5)ｿｽﾅゑｿｽｿｽD
ｿｽﾌようｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾌ環具ｿｽｿｽﾅゑｿｽ
fDisplayUI ｿｽｿｽ True ｿｽﾅゑｿｽｿｽｿｽｿｽﾄゑｿｽ False ｿｽﾅゑｿｽｿｽｿｽｿｽﾄゑｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾍ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾂ具ｿｽｿｽｿｽ WinXP Sp3 IE8 shdocvw.dllｿｽoｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽF6.0.2900.5512
ｿｽﾈ会ｿｽｿｽﾌペｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽﾆ「AddUrlToFavoritesｿｽvｿｽﾖ撰ｿｽｿｽｿｽ shdocvw.dllｿｽﾌバｿｽ[ｿｽWｿｽｿｽｿｽｿｽ
ｿｽﾉゑｿｽｿｽｿｽﾄ難ｿｽｿｽしｿｽｿｽｿｽ閧ｵｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽいｿｽｿｽｿｽ閧ｪｿｽｿｽｿｽｿｽ謔､ｿｽﾅ・ｿｽEｿｽE
http://social.msdn.microsoft.com/Forums/ja-JP/vcgeneralja/thread/541d9028-9b66-4a1f-abf7-aac40da518fc/
