在程序中如何强行关闭所有的IE窗口？(50分)

芭

芭芭拉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #1

在程序中如何强行关闭所有的IE窗口？

 

D

datm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #2

PostMessage(IEWinHWnd,WM_CLOSE,0,0);

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #3

function EnumWindowsProc(HWND: hWnd; param: pointer): Boolean; stdcall;

var
IEHWND: hWnd;
IECaption: string;
bHaveIE: Boolean;
sIETitle: string; // sIETitle:='Microsoft Internet Explorer';

function EnumWindowsProc(HWND: hWnd; param: pointer): Boolean;
var
buffer: array[0..255] of Char;
begin
GetWindowText(hWnd, buffer, 256);
if StrComp(buffer, PChar(sIETitle)) > 0 then
begin
bHaveIE := True;
IEHWND := hWnd;
这里得到了IE的句柄。然后发送WM_Close消息就可以了。
StrCopy(pChar(IECaption), buffer);
end;
Result := True;
end;

 

W

wonsfon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #4

hWnd:= FindWindow('IEFrame',nil);
while hWnd > 0 do
begin
PostMessage(hWnd,WM_CLOSE,0,0);
hWnd:= FindWindow('IEFrame',nil);
end;

 

芭

芭芭拉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #5

好像都行不通

 

D

dana

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #6

好像有人答过。

 

飞

飞来石

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-21

• #7

Closing all Internet Explorer Windows

Note: Click Title to view in Edit Box for easier copying.


procedure TForm1.Button1Click(Sender: TObject);

Var

IExplorer : Thandle;

begin

IExplorer := FindWindow('IEFrame'

nil);

If IExplorer <> 0 Then

SendMessage(IExplorer

WM_SYSCOMMAND

SC_MINIMIZE

0);

end;

 

S

snoopy_me

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-22

• #8

gzgz

 

D

dana

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-09

• #9

快结束吧.

 

芭

芭芭拉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-09

• #10

多人接受答案了。