标签：Sender nil Delphi OleVariant 网线 SinkClassesD WMI var TSWbemSink

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('', '\root\wmi', '', '', '', '', 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　　更新时间：

标签：Sender,nil,Delphi,OleVariant,网线,SinkClassesD,WMI,var,TSWbemSink
来源： https://www.cnblogs.com/guorongtao/p/15071037.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。