我也是DELOY到網頁上調試的, 下面是從我的程式中給一段拿IE HANDLE的CODE.
function TCYBERBand.SetSite(const pUnkSite: IUnknown):HResult;stdcall;
var
pOleWindow:IOleWindow;
pOLEcmd:IOleCommandTarget;
pSP:IServiceProvider;
rc:TRect;
begin
if Assigned(pUnkSite) then begin
m_hwndParent := 0;
m_pSite := pUnkSite as IInputObjectSite;
pOleWindow := PunkSIte as IOleWindow;
//Àò±o¤÷µ¡¤fIE­±ªOµ¡¤fªºHandle
pOleWindow.GetWindow(m_hwndParent);
if(m_hwndParent=0) then begin
Result := E_FAIL;
Exit;
end;
//Àò±o¤÷µ¡¤f°Ï°ì
GetClientRect(m_hwndParent, rc);
if not Assigned(frmIE) then begin
//«Ø¥ßTIEFormµ¡¤f¡A¤÷µ¡¤f¬°m_hwndParent
frmIE := TForm1.CreateParented(m_hwndParent);
m_Hwnd := frmIE.Handle;
SetWindowLong(frmIE.Handle, GWL_STYLE, GetWindowLong(frmIE.Handle,
GWL_STYLE) Or WS_CHILD);
//®ÚÕu¤÷µ¡¤f°Ï°ì³]¸mµ¡¤f¦ì¸m
with frmIE do begin
Left :=rc.Left
Top :=rc.top;
Width := rc.Right - rc.Left;
Height := rc.Bottom - rc.Top;
end;
frmIE.Visible := True;
//Àò±oÉOÂsÄý¾¹¬ÛÃöÁpªºWebbrowser¹ï¶H¡C
pOLEcmd := pUnkSite as IOleCommandTarget;
pSP := pOLEcmd as IServiceProvider;
if Assigned(pSP) then begin
pSP.QueryService(IWebbrowserApp, IWebbrowser2, frmIE.IEThis);
end;
end;
end;
Result := S_OK;
end;
