Delphi WMI[2] 响应网线断开

Delphi WMI[2] 响应网线断开

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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　　更新时间：

 

posted on   滔Roy  阅读(232)  评论(0)  编辑  收藏  举报

编辑推荐：
· Linux系列：如何用heaptrack跟踪.NET程序的非托管内存泄露
· 开发者必知的日志记录最佳实践
· SQL Server 2025 AI相关能力初探
· Linux系列：如何用 C#调用 C方法造成内存泄露
· AI与.NET技术实操系列（二）：开始使用ML.NET
阅读排行：
· 【自荐】一款简洁、开源的在线白板工具 Drawnix
· 没有Manus邀请码？试试免邀请码的MGX或者开源的OpenManus吧
· 园子的第一款AI主题卫衣上架——"HELLO! HOW CAN I ASSIST YOU TODAY
· 无需6万激活码！GitHub神秘组织3小时极速复刻Manus，手把手教你使用OpenManus搭建本
· C#/.NET/.NET Core优秀项目和框架2025年2月简报
历史上的今天：
2020-07-28 Delphi 全局热键KeyPress 和 热键 API（RegisterHotKey、UnRegisterHotKey、GlobalAddAtom、GlobalDeleteAtom、GlobalFindAtom）
2019-07-28 [原创] Java 流布局管理器 FlowLayout
2019-07-28 Java Swing 窗体屏幕居中

导航

点击右上角即可分享
微信分享提示