请问怎么在程序里关闭掉IE、TE呢?找了很多资料,都只对“计算器”有用:((50分)

  • 主题发起人 主题发起人 cornermoss
  • 开始时间 开始时间
C

cornermoss

Unregistered / Unconfirmed
GUEST, unregistred user!
var IEHandle: THandle;
begin
IEHandle:=0;
IEHandle:=FindWindowEX(0, IEHandle, 'IEFrame', nil);
if IEHandle<>0 then SendMessage(IEHandle, WM_CLOSE, 0, 0);
IEHandle:= FindWindowEx(0, IEHandle,'Afx:400000:0',nil); //关闭腾讯浏览器
if IEHandle<>0 then SendMessage(IEHandle, WM_CLOSE, 0, 0);
end;

上面的不行呢~~ 还要什么工具得到外部程序的Handle呀?我用的winsight32,怎么不好用哦~~
 
你改用postmessage试试,我试过可以:
procedure TForm1.Button1Click(Sender: TObject);
var Wnd: HWND;
begin
Wnd := FindWindow('IEFrame', nil);
if Wnd = 0 then
begin
MessageDlg ('No Running instance of Internet Explorer!',mtError, [mbOK], 0);
end;
PostMessage(Wnd, WM_CLOSE, 0, 0);
end;
 
接受答案了.
 
后退
顶部