Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] Delphi关闭当前打开的所有IE窗口 →→→→→进入此内容的聊天室

来自 , 2019-02-05, 写在 Delphi (Object Pascal), 查看 123 次.
URL http://www.code666.cn/view/d60743aa
  1. // http://www.sharejs.com
  2. Var
  3. IExplorer : Thandle;
  4. begin
  5. IExplorer := FindWindow(''IEFrame'',nil);
  6. If IExplorer  0 Then
  7. SendMessage(IExplorer, WM_SYSCOMMAND,SC_CLOSE,0);

回复 "Delphi关闭当前打开的所有IE窗口"

这儿你可以回复上面这条便签

captcha

贴代码片段 - Code666