J jps_exp Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-14 #1 我想关闭一个ie的窗口,用了几个方法,都不能关,<br>不过关别程序都可以。
T tanglu Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-15 #3 你用的什么方法?<br>如果是写在网页里面的,可以用JavaScript
Z zhangkan Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-15 #4 你找到那个IE窗口的句柄,然后用<br>PostMessage(handle,WM_CLOSE,0,0); 来关掉.<br>其中handle是该IE的句柄.
D DragonPC_??? Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-15 #5 简单,看看下面的回答,有问题再说<br>http://www.delphibbs.com/delphibbs/dispq.asp?lid=635843
W wison Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-16 #6 每个IE的运行实例都可以通过IWebBrowser2接口来取得,然后就可以调用此接口的涵数来<br>控制IE的"行动"啦:),如下:<br>var idisp : IDispatch;<br> iwb2 : IWebBrowser2;<br> shellWindows : IShellWindows;<br> i : integer;<br> hwnd : THandle;<br> drawCanvas : TCanvas;<br> yes : wordbool;<br>begin<br> shellWindows := CoShellWindows.Create();<br> for i := 0 to shellWindows.Count - 1 do begin<br> idisp := shellWindows.Item( i );<br> idisp.QueryInterface( IWebBrowser2 , iwb2 );<br> if ( iwb2 <> nil ) then begin<br> iwb2.Set_Left( iwb2.Get_Left() + 2 );<br> try<br> iwb2.Set_RegisterAsBrowser(true);<br> except<br> On E : Exception do<br> ShowMessage('No page to go or forward');<br> end;<br> end;<br> end;<br>end;
每个IE的运行实例都可以通过IWebBrowser2接口来取得,然后就可以调用此接口的涵数来<br>控制IE的"行动"啦:),如下:<br>var idisp : IDispatch;<br> iwb2 : IWebBrowser2;<br> shellWindows : IShellWindows;<br> i : integer;<br> hwnd : THandle;<br> drawCanvas : TCanvas;<br> yes : wordbool;<br>begin<br> shellWindows := CoShellWindows.Create();<br> for i := 0 to shellWindows.Count - 1 do begin<br> idisp := shellWindows.Item( i );<br> idisp.QueryInterface( IWebBrowser2 , iwb2 );<br> if ( iwb2 <> nil ) then begin<br> iwb2.Set_Left( iwb2.Get_Left() + 2 );<br> try<br> iwb2.Set_RegisterAsBrowser(true);<br> except<br> On E : Exception do<br> ShowMessage('No page to go or forward');<br> end;<br> end;<br> end;<br>end;