关闭程序

Question

如何在程序中关闭腾讯浏览器？在线等待

Answer 1

var Wnd: HWND;
  IEHandle:= FindWindowEx(0, IEHandle,'Afx:400000:0',nil);  //关闭腾讯浏览器
  if IEHandle<>0 then SendMessage(IEHandle, WM_CLOSE, 0, 0);这样可以吗？

Answer 2

你把腾讯浏览器 设置成为 关闭时不提示 
var
  pwnd: THandle;
begin
  pwnd := findwindow('Afx:400000:0',nil);
  if pwnd <> 0 then
    sendmessage(pwnd,WM_CLOSE,0,0)
  else
    showmessage('没有找到窗口');