怎样才能关掉IE浏览器????谢谢!!procedure TForm1.Button1Click(Sender: TObject);
var
HWndIE : HWnd;
begin
HWndIE:=FindWindow(nil, 'iexplore');
if HWndIE <> 0 then
SendMessage(HWndIE, WM_CLOSE, 0, 0);
end;
总是不能关闭IE!答者有分。
var
HWndIE : HWnd;
begin
HWndIE:=FindWindow(nil, 'iexplore');
if HWndIE <> 0 then
SendMessage(HWndIE, WM_CLOSE, 0, 0);
end;
总是不能关闭IE!答者有分。
建议用类名,好像是IEFrame,可以自己去查,变革程序自己查也很简单
2:用postmessage
PostMessage(HWndIE, WM_CLOSE, 0, 0);
var
wnd:HWnd;
begin
wnd:=findwindow(PChar('IEFRAME'),nil);
if wnd>0 then
begin
showmessage('found');
postmessage(wnd,WM_CLOSE,0,0);
end
else
showmessage('no found');
end;