重金(300)求解：如何在程序中关闭IE？？ (300分)

amengdewo · 2003-01-08

已试过的方法： 先找到IE的Handle（已找到), SendMessage(hWindow, WM_CLOSE, 0, 0); //但IE并没有关掉 这个方法可以关闭记事本、计算器等程序。 我的邮箱ameng@ameng.com

碧血剑 · 2003-01-08

procedure TForm1.Button1Click(Sender: TObject); var iehandle:Thandle; begin iehandle:=findwindow('ieframe',nil); postmessage(iehandle,WM_close,0,0); end;

lanbing1400 · 2003-01-08

我有一个案例，你可以参考一下，给个邮箱

jsxjd · 2003-01-08

应该有简单方法！

geluyx · 2003-01-08

var   ShellWindow: IShellWindows;   nCount: integer;   spDisp: IDispatch;   i,j: integer;   vi: OleVariant;   IE1: IWebBrowser2;   IDoc1: IHTMLDocument2; begin   ShellWindow := CoShellWindows.Create;   nCount := ShellWindow.Count;   for i := 0 to nCount - 1 do   begin     vi := i;     spDisp := ShellWindow.Item(vi);     if spDisp = nil then continue;     spDisp.QueryInterface( iWebBrowser2, IE1 );     if IE1 <> nil then     begin       IE1.Document.QueryInterface(IHTMLDocument2,iDoc1);       if iDoc1 <> nil then         ie1.Quit     end;   end; end; 或者    if IE1 <> nil then ie1.quit ，但可能会把资源管理器的窗口也关了

geluyx · 2003-01-08

一切与IE有关的窗口死光光 procedure TForm1.Button1Click(Sender: TObject); var   i:integer;   hWndStart,hwndLike:HWND;   WndCaption:array[0..254] of char;   WndClassName:array[0..254] of char;   WindowCaption,WindowClass: array [1..12] of string; begin   //close 1   WindowCaption[1]:='Microsoft';   WindowClass[1]:='IE';   //close 2   WindowCaption[2]:='Microsoft';   WindowClass[2]:='#32770';   //close 3   WindowCaption[3]:='Explorer';   WindowClass[3]:='#32770';   //close 4   WindowCaption[4]:='安装语言';   WindowClass[4]:='#32770';   //close 5   WindowCaption[5]:='文件';   WindowClass[5]:='#32770';   //close 6   WindowCaption[6]:='ActiveX';   WindowClass[6]:='#32770';   //close 7   WindowCaption[7]:='Internet';   WindowClass[7]:='#32770';   //close 8   WindowCaption[8]:='Alert';   WindowClass[8]:='#32770';   //close 9   WindowCaption[9]:='Internet';   WindowClass[9]:='Internet';   //close 10   WindowCaption[10]:='安全设置';   WindowClass[10]:='#32770';   //close 11   WindowCaption[11]:='Script';   WindowClass[11]:='SCRDBG';   //close 12   WindowCaption[12]:='Script';   WindowClass[12]:='#32770';   hWndStart:=GetDesktopWindow;   hwndLike:=GetWindow(hWndStart,GW_CHILD);   while hwndLike<>0 do   begin     GetWindowText(hwndLike,@WndCaption,254);     GetClassName(hwndLike,@WndClassName,254);     for i:=1 to 12 do     begin       if ((pos(WindowCaption,StrPas(WndCaption))<>0) and           (pos(WindowClass,StrPas(WndClassName))<>0)) then       begin         PostMessage(hwndLike,WM_CLOSE,0,0 ); //找到匹配窗口名称与类名或窗口名称匹配         break;       end;     end;     hwndLike:=GetWindow(hwndLike,GW_HWNDNEXT);   end; end;

yanghai0437 · 2003-01-08

SPYSKY · 2003-01-08

jsxjd · 2003-01-08

关闭所有IE窗口的完整代码，首先 uses ComObj： procedure TForm1.Button1Click(Sender: TObject); var   sh,IEs,IE:variant;   i:integer; begin   sh:=CreateOleobject('shell.application');   IEs:=sh.windows;   for i:=IEs.count-1 downto 0 do   begin     IE:=IEs.item(i);     try       if pos('IEXPLORE.EXE',ie.fullname)>0 then ie.Quit;     except     end;   end; end; 要关闭特定窗口可根据 IE.LocationURL 来判断！！！

coolbaby · 2003-01-08

sendmessage可以的 你肯定是句柄找错了 也可以用shellwindow来关闭

amengdewo · 2003-01-08

jsxjd的方法最简单得180分 其他人每人20分 谢谢各位的帮助，祝你们生活愉快：）

重金(300)求解：如何在程序中关闭IE？？ (300分)

amengdewo

Unregistered / Unconfirmed

碧血剑

Unregistered / Unconfirmed

lanbing1400

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

geluyx

Unregistered / Unconfirmed

geluyx

Unregistered / Unconfirmed

yanghai0437

Unregistered / Unconfirmed

SPYSKY

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

coolbaby

Unregistered / Unconfirmed

amengdewo

Unregistered / Unconfirmed

Similar threads