zoukankan      html  css  js  c++  java
  • Delphi WMI[2] 响应网线断开

    Delphi WMI[2] 响应网线断开

    uses
      WbemScripting_TLB,ActiveX,ComObj;
    
    procedure OnDisconnect(Sender: TObject;
                               var objWbemObject: OleVariant;
                               var objWbemAsyncContext: OleVariant);
    
    
    procedure TForm1.OnDisconnect(Sender: TObject;       
      var objWbemObject: OleVariant;
      var objWbemAsyncContext: OleVariant);
    begin
      ShowMessage(' 网络中断啦! TaoRoy');
    end;
    
    procedure TForm1.BitBtn11Click(Sender: TObject);
    var
      Locator: TSWbemLocator;
      Services: ISWbemServices;
      SinkClassesC: TSWbemSink;
      SinkClassesD: TSWbemSink; 
    begin
      Locator := TSWbemLocator.Create(self);
      Services := Locator.ConnectServer('', '
    ootwmi', '', '', '', '', 0, nil);
     
      SinkClassesD := TSWbemSink.Create(self);
      SinkClassesD.OnObjectReady:=OnDisconnect; // Event Notifier  事件通知程序
     
      // Connect Async Event  连接异步事件
     Services.ExecNotificationQueryAsync(
                                          SinkClassesD.DefaultInterface,
                                          'Select * from MSNdis_StatusMediaDisconnect',
                                          'WQL',
                                          0, nil, nil);
    end;
    

      

    创建时间:2021.07.28  更新时间:

    博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你所有帮助,谢谢!
  • 相关阅读:
    博途Portal TIA(PLC) + Scout (独立)驱动配置 CU320 + PM240-2
    TM41 修改分辨率
    用户注册
    用户名的登录认证
    CSS
    HTML
    python常用模块
    面对对象进阶
    面对对象之绑定方法和非绑定方法
    面对对象之封装
  • 原文地址:https://www.cnblogs.com/guorongtao/p/15071037.html
Copyright © 2011-2022 走看看