|
ｿｽ@ｿｽｿｽTWebBrowserｿｽﾅスｿｽNｿｽｿｽｿｽvｿｽgｿｽGｿｽｿｽｿｽ[ｿｽ_ｿｽ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
hana 2011/03/06(ｿｽｿｽ) 21:04:27
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽBｿｽﾈ会ｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
1ｿｽ@ｿｽｿｽ閧ｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽETWebBrowserｿｽﾅ簡単ｿｽﾈブｿｽｿｽｿｽEｿｽUｿｽｿｽ成ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽEｿｽｿｽｿｽﾌブｿｽｿｽｿｽEｿｽUｿｽﾅ擾ｿｽｿｽしてゑｿｽｿｽｿｽﾆ、IEｿｽﾆ費ｿｽﾗ、ｿｽpｿｽﾉゑｿｽJavaScriptｿｽｿｽ
ｿｽ@ｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽﾅゑｿｽｿｽﾌで、JavaScriptｿｽﾌｿｽｿｽb
ｿｽ@ｿｽZｿｽ[ｿｽWｿｽｿｽ}ｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ考ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@(ｿｽﾐどゑｿｽｿｽﾆゑｿｽｿｽﾉは、MSNｿｽﾌポｿｽ[ｿｽ^ｿｽｿｽｿｽTｿｽCｿｽgｿｽﾅゑｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽB)
2ｿｽ@ｿｽｿｽｿｽｿｽﾜでの対会ｿｽ
ｿｽESilentｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽTrueｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾊ、ｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽﾍ確ｿｽｿｽｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾌゑｿｽ
ｿｽ@ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌベｿｽ[ｿｽVｿｽbｿｽNｿｽFｿｽﾘ用ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽｿｽ
ｿｽ@ｿｽｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ@
ｿｽ@ｿｽ痰ｦｿｽﾎゑｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾅゑｿｽｿｽBｿｽ@http://www.chama.ne.jp/access/
ｿｽ@(ｿｽyｿｽ[ｿｽWｿｽｿｽｿｽﾙどの「ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽNｿｽﾅ確ｿｽF)
ｿｽEｿｽｿｽｿｽﾌ趣ｿｽ@ｿｽｿｽTｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
3ｿｽ@ｿｽｿｽｿｽ竡厄ｿｽｿｽ
ｿｽEｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽJavaScriptｿｽﾌエｿｽｿｽｿｽ[ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽﾌみゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
au 2011/03/07(ｿｽｿｽ) 10:56:01
ｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽが、http://bsalsa.com/ｿｽｿｽTEmbeddedWBｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾉは、ScriptErrorActionｿｽﾄプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽDisableErrors.ScriptErrorSupressｿｽﾄプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾎスｿｽNｿｽｿｽｿｽvｿｽgｿｽGｿｽｿｽｿｽ[ｿｽﾌみゑｿｽｿｽｿｽｿｽｿｽｿｽじゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽAｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾎ参ｿｽlｿｽﾉなるかｿｽﾆ。
hana 2011/04/02(ｿｽy) 20:33:20
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ答ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌに、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽxｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽAｿｽ¥ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽBｿｽiｿｽｿｽｿｽｿｽｿｽﾌ奇ｿｽｿｽﾔ、ｿｽnｿｽkｿｽﾅ難ｿｽVｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽBｿｽj
TEmbeddedWBｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽAｿｽmｿｽFｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾅは、ｿｽｿｽｿｽﾌようｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽﾈ会ｿｽｿｽATEmbeddedWB.pasｿｽｿｽｿｽｿｽﾌ茨ｿｽｿｽpｿｽﾅゑｿｽｿｽB
ｿｽｿｽParentFormｿｽiTFormｿｽjｿｽｿｽWindowProcｿｽﾆ難ｿｽｿｽｿｽﾖゑｿｽｿｽﾄサｿｽuｿｽNｿｽｿｽｿｽXｿｽｿｽ
procedure TEmbeddedWB.FormWndProc(var AMsg: Messages.TMessage);
begin
if AMsg.Msg = WM_ACTIVATE then begin
HandleDialogBoxes(AMsg);
end;
if AMsg.Msg <> 45062 then FOldWindowProc(AMsg);
end;
procedure TEmbeddedWB.HandleDialogBoxes(var AMsg: Messages.TMessage);
var
PopHandle: Integer;
DlgCaption, DlgClss: string;
Msg: TWMActivate;
WI: TWindowInfo;
begin
Msg := TWMActivate(AMsg);
if Msg.Active = 0 then
begin
PopHandle := Msg.ActiveWindow;
DlgClss := GetWinClass(PopHandle);
FillChar(WI, SizeOf(WI), 0);
if PopHandle <> 0 then
begin
WI.dwStyle := Abs(GetWindowLong(PopHandle, GWL_STYLE));
WI.dwExStyle := Abs(GetWindowLong(PopHandle, GWL_EXSTYLE));
end;
if (DlgClss = '#32770') or (DlgClss = 'Internet Explorer_TridentDlgFrame') then
begin
DlgCaption := GetWinText(PopHandle);
if (PopHandle <> 0) and Assigned(FOnShowDialog) then
FOnShowDialog(Self, PopHandle, WI.dwExStyle, DlgCaption, FDialogBoxes.FNewCaption, FDialogBoxes.FDisableAll);
if FDisableErrors.FScriptErrorsSuppressed then
begin
if (AnsiPos('SCRIPT', AnsiUpperCase(DlgCaption)) <> 0) then
begin
PostMessage(PopHandle, WM_LBUTTONDOWN, 0, 0);
PostMessage(PopHandle, WM_LBUTTONUP, 0, 0);
SendMessage(PopHandle, WM_CLOSE, 0, 0);
Forms.Application.ProcessMessages;
Exit;
end;
if (AnsiPos('ERROR', AnsiUpperCase(DlgCaption)) <> 0) or (WI.dwExStyle = 4260097) then
begin
DestroyWindow(PopHandle);
Exit;
end;
end;
end;
end;
end;
ｿｽｿｽｿｽpｿｽIｿｽｿｽｿｽB
(ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB)
hana 2011/04/02(ｿｽy) 20:44:08
ｿｽ@ｿｽｿｽLｿｽﾉつゑｿｽｿｽﾄ、ｿｽﾈ単ｿｽﾉ申ｿｽｿｽｿｽ繧ｰｿｽﾜゑｿｽｿｽﾆ、
ｿｽPｿｽ@WebBrowserｿｽﾉ費ｿｽｿｽﾅゑｿｽｿｽ驛ｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽQｿｽ@WM_ActivateｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽVｿｽｿｽｿｽｿｽｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾉなゑｿｽｿｽｿｽｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾌキｿｽｿｽｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽA
ｿｽRｿｽ@ｿｽｿｽｿｽﾌダｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾌキｿｽｿｽｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽﾆ茨ｿｽvｿｽｿｽｿｽｿｽｿｽｿｽAWM_Closeｿｽ送ゑｿｽｿｽﾄ閉ゑｿｽｿｽｿｽ
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽ踏まゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾅは趣ｿｽｿｽﾌようｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆ考ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
private
{ Private ｿｽ骭ｾ }
OriginProc: TWndMethod; //ｿｽｿｽｿｽﾌウｿｽBｿｽｿｽｿｽhｿｽEｿｽﾖ撰ｿｽｿｽﾛ趣ｿｽｿｽp
procedure SubClassProc(var AMsg: TMessage); //ｿｽｿｽｿｽｿｽﾖゑｿｽｿｽpｿｽ闡ｱｿｽｿｽ
procedure TForm1.FormShow(Sender: TObject);
begin
OriginProc := Self.WindowProc;
Self.WindowProc := SubClassProc;
end;
procedure TForm1.SubClassProc(var AMsg: TMessage);
var
S: String;
Wnd: HWND;
I: Integer;
Msg: TWMActivate;
begin
if AMsg.Msg = WM_Activate then begin
Msg := TWMActivate(AMsg);
If Msg.Active = 0 then begin
Wnd := Msg.ActiveWindow;
I := GetWindowTextLength(Wnd);
SetLength(S, I + 1);
GetWindowText(Wnd, PChar(S), I + 1);
If AnsiPos('Internet Explorer ｿｽXｿｽNｿｽｿｽｿｽvｿｽg', S) > 0 then begin
SendMessage(Wnd, WM_CLOSE, 0, 0);
end;
end;
end;
OriginProc(AMsg);
end;
ｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽ{ｿｽIｿｽﾉ抑ｿｽ‾ｿｽﾉは撰ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽﾅゑｿｽｿｽｿｽｿｽA1ｿｽﾂ新ｿｽｿｽｿｽﾈ厄ｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽﾅダｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽﾂゑｿｽｿｽｿｽﾆ、ｿｽ{ｿｽｿｽForm1ｿｽﾌキｿｽｿｽｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽﾌ色ｿｽｿｽｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾈ色ｿｽﾉ戻ゑｿｽﾆゑｿｽｿｽｿｽA
ｿｽｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾈ色ｿｽﾌまま、ｿｽｿｽｿｽﾉ戻ゑｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽSetForeGroundWindowｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾄアｿｽNｿｽeｿｽBｿｽuｿｽｿｽﾔに戻ゑｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽLｿｽｿｽｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽﾌ色ｿｽｿｽｿｽuｿｽｿｽAｿｽNｿｽeｿｽBｿｽuｿｽvｿｽｿｽｿｽuｿｽAｿｽNｿｽeｿｽBｿｽuｿｽvｿｽﾆゑｿｽｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB(TEmbeddedWBｿｽﾅは、ｿｽｿｽｿｽﾌようｿｽﾈゑｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽSｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽ轤ｸｿｽAｿｽsｿｽvｿｽcｿｽﾅゑｿｽｿｽｿｽｿｽB)
ｿｽｿｽｿｽﾌようｿｽﾈゑｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾈゑｿｽﾆゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽﾇなゑｿｽｿｽｿｽｿｽAｿｽ謔｢
ｿｽｿｽｿｽmｿｽbｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
hana 2011/04/02(ｿｽy) 20:57:38
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽBｿｽQｿｽlURLｿｽﾉつゑｿｽｿｽﾄ追記ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽGｿｽｿｽｿｽ[ｿｽ発撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽyｿｽ[ｿｽWｿｽﾍゑｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾌスｿｽNｿｽｿｽｿｽvｿｽgｿｽGｿｽｿｽｿｽ[ｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽyｿｽ[ｿｽWｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAｿｽmｿｽｿｽｿｽﾉエｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
http://www.ajaxtower.jp/js/error/sample_err.html
ｿｽiｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾍ、http://www.ajaxtower.jp/js/error/index1.htmlｿｽ@ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽAJavaScriptｿｽwｿｽKｿｽpｿｽﾌペｿｽ[ｿｽWｿｽﾅゑｿｽｿｽBｿｽj
au 2011/04/02(ｿｽy) 23:39:03
EmbeddedWBｿｽﾌ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽﾌキｿｽｿｽｿｽｿｽIOleCommandTargetｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽExecｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽOLECMDID_SHOWSCRIPTERRORｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽiTCustomEmbeddedWB.CommandTarget_Execｿｽj
hana 2011/04/03(ｿｽｿｽ) 21:16:54
ｿｽ@ｿｽｿｽｿｽ答、ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ具ｿｽｿｽkｿｽﾈのでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｱｿｽﾆゑｿｽ
ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ@ｿｽPｿｽｿｽｿｽEｿｽｿｽｿｽﾄみゑｿｽﾆ、ｿｽPｿｽｿｽｿｽｿｽ1ｿｽﾂの関撰ｿｽｿｽﾆゑｿｽｿｽﾄ抵ｿｽ`ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌは読み趣ｿｽｿｽｿｽｿｽ
ｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽﾈゑｿｽｿｽｿｽｿｽ黷ｪｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽGｿｽｿｽｿｽ[ｿｽｿｽ}ｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽAｿｽ謔ｭｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾅ具ｿｽｿｽkｿｽﾈのでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾚ細な会ｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾅゑｿｽｿｽﾜゑｿｽ
ｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽBｿｽｿｽｿｽ關費ｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
au 2011/04/03(ｿｽｿｽ) 22:40:54
IOleCommandTargetｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽtｿｽFｿｽ[ｿｽXｿｽｿｽExecｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆで、ｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ呼び出ｿｽｿｽｿｽｿｽ骼厄ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
http://support.microsoft.com/kb/261003/en-us
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈに深ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽじゃ無ｿｽｿｽｿｽｿｽﾅ擾ｿｽ閧ｭｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ皷橸ｿｽAｿｽｿｽｿｽﾌ抵ｿｽ`ｿｽｿｽFormｿｽﾌ抵ｿｽ`ｿｽﾌ擾ｿｽﾅゑｿｽｿｽﾎスｿｽNｿｽｿｽｿｽvｿｽgｿｽGｿｽｿｽｿｽ[ｿｽoｿｽﾈゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽB
const
CGID_DocHostCommandHandler: TGUID = (D1: $F38BC242; D2: $B950; D3: $11D1; D4:
($89, $18, $00, $C0, $4F, $C2, $C8, $36));
type
TWebBrowser = class(SHDocVw.TWebBrowser, IOleCommandTarget)
protected
{IOleCommandTarget interface}
function IOleCommandTarget.QueryStatus = CommandTarget_QueryStatus;
function CommandTarget_QueryStatus(CmdGroup: PGUID; cCmds: Cardinal;
prgCmds: POleCmd; CmdText: POleCmdText): HRESULT; stdcall;
function IOleCommandTarget.Exec = CommandTarget_Exec;
function CommandTarget_Exec(CmdGroup: PGUID; nCmdID, nCmdexecopt: DWORD;
const vaIn: OleVariant; var vaOut: OleVariant): HRESULT; stdcall;
end;
{ TWebBrowser }
function TWebBrowser.CommandTarget_Exec(CmdGroup: PGUID; nCmdID,
nCmdexecopt: DWORD; const vaIn: OleVariant; var vaOut: OleVariant): HRESULT;
begin
Result := OLECMDERR_E_NOTSUPPORTED;
if CmdGroup <> nil then
begin
if IsEqualGuid(cmdGroup^, CGID_DocHostCommandHandler) then
begin
case nCmdID of
(* ID_IE_F5_REFRESH {nCmdID 6041, F5},
ID_IE_CONTEXTMENU_REFRESH {nCmdID 6042, Refresh by ContextMenu},
IDM_REFRESH {nCmdID 2300}:
begin
if Assigned(FOnRefresh) then
begin
tmpCancel := False;
FOnRefresh(Self, nCmdID, tmpCancel);
if tmpCancel then
Result := S_OK; //FIXME is it true? Why not OLECMDERR_E_CANCELED
end;
Exit;
end;
*)
OLECMDID_SHOWSCRIPTERROR:
begin
vaOut := True;
Result := S_OK;
Exit;
end;
end;
end;
end;
end;
function TWebBrowser.CommandTarget_QueryStatus(CmdGroup: PGUID; cCmds: Cardinal;
prgCmds: POleCmd; CmdText: POleCmdText): HRESULT;
begin
prgCmds.cmdf := OLECMDF_ENABLED;
Result := S_OK;
end;
hana 2011/04/05(ｿｽｿｽ) 22:03:33
auｿｽl
ｿｽｿｽｿｽZｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽYｿｽｿｽｿｽﾓ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾄ、ｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽAｿｽKｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽﾎらくｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽSｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽﾌ厄ｿｽｿｽﾍ、ｿｽｿｽｿｽﾈゑｿｽﾌ難ｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽﾅは全ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽAｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ黷ｵｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽｿｽﾓゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽRｿｽ[ｿｽhｿｽﾌ難ｿｽeｿｽﾍゑｿｽｿｽぜん理会ｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽc
class(SHDocVw.TWebBrowser, IOleCommandTarget)
ｿｽﾆゑｿｽｿｽｿｽｿｽ謔､ｿｽﾉ、ｿｽQｿｽﾂのクｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽHｿｽNｿｽｿｽｿｽXｿｽﾌ作成ｿｽﾈどはゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽ
ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽし、ｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽtｿｽFｿｽ[ｿｽXｿｽｿｽAｿｽﾈゑｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾆ趣ｿｽｿｽｿｽｿｽIｿｽﾉ擾ｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽAｿｽSｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ況でゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽeｿｽﾌ暦ｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽ示ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽyｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽいｿｽｿｽ
ｿｽｿｽｿｽﾏゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽ閧ｵｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾗ具ｿｽｿｽｿｽｿｽﾄみようｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
(ｿｽuｿｽｿｽｿｽEｿｽUｿｽﾌ作成ｿｽﾌ勉具ｿｽｿｽﾍ搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽﾌで。)
ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽいｿｽいｿｽｿｽｿｽｿｽｿｽﾄみて、ｿｽｿｽｿｽｿｽｿｽﾌ暦ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽ_ｿｽﾅ、ｿｽｿｽｿｽ轤ｽｿｽﾟて会ｿｽｿｽｿｽ}ｿｽ[ｿｽNｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾍ、ｿｽ{ｿｽｿｽｿｽﾉどゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽ{ｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
