Pascal WMI Delphi 代码生成器：简化Windows管理接口开发

icy 今天 20 抢沙发

默认

摘要： Pascal WMI Delphi 代码生成器：简化Windows管理接口开发项目概述 WMI Delphi Code Creator 是一个开源工具，专门为Delphi和Fre...

Pascal WMI Delphi 代码生成器：简化Windows管理接口开发

项目概述

WMI Delphi Code Creator 是一个开源工具，专门为Delphi和Free Pascal开发者设计，用于简化Windows Management Instrumentation（WMI）编程。该项目由RRUZ维护，通过直观的图形界面帮助开发者快速生成访问WMI信息的Pascal代码，极大地提高了开发效率。

核心功能特性

1. WMI查询代码生成

自动生成查询WMI类的Pascal代码
支持多种查询方式：SELECT语句、枚举实例等
生成完整的可编译单元文件

2. 多版本Delphi支持

兼容Delphi 7至最新版本
支持Free Pascal编译器
自动适应不同版本的语法差异

3. 事件监控代码生成

创建WMI事件监视器代码
实时监控系统状态变化
生成事件处理回调框架

4. 方法调用支持

生成调用WMI方法的代码
自动处理参数传递和返回值
支持同步和异步调用

安装与使用

安装方法

从GitHub仓库下载最新版本
使用Delphi打开项目文件编译
或直接下载预编译的可执行文件

基本使用流程

启动WMI Delphi Code Creator
连接到本地或远程计算机
浏览WMI命名空间和类
选择需要的WMI操作
生成并复制Pascal代码

代码生成实例

示例1：获取系统信息

text

// 生成的查询处理器代码
procedure GetWin32_ProcessorInfo;
var
  objWMIService: OLEVariant;
  colItems: OLEVariant;
  colItem: OLEVariant;
  oEnum: IEnumvariant;
  iValue: LongWord;
begin
  objWMIService := GetWMIObject('winmgmts:\\localhost\root\CIMV2');
  colItems := objWMIService.ExecQuery('SELECT * FROM Win32_Processor', 'WQL', 0);
  oEnum := IUnknown(colItems._NewEnum) as IEnumvariant;
  
  while oEnum.Next(1, colItem, iValue) = 0 do
  begin
    Writeln('处理器名称: ' + VarToStr(colItem.Name));
    Writeln('核心数: ' + VarToStr(colItem.NumberOfCores));
    Writeln('当前时钟速度: ' + VarToStr(colItem.CurrentClockSpeed) + ' MHz');
    Writeln('制造商: ' + VarToStr(colItem.Manufacturer));
    colItem := Unassigned;
  end;
end;

示例2：监控进程创建事件

text

// 生成的事件监视代码
procedure MonitorProcessCreation;
var
  WmiLocator: TSWbemLocator;
  WmiServices: ISWbemServices;
  WmiSink: TSWbemSink;
begin
  WmiLocator := TSWbemLocator.Create(nil);
  try
    WmiServices := WmiLocator.ConnectServer('localhost', 'root\CIMV2', '', '');
    WmiSink := TSWbemSink.Create(nil);
    
    // 设置事件回调
    WmiSink.OnObjectReady := WmiSinkObjectReady;
    
    // 执行事件查询
    WmiServices.ExecNotificationQueryAsync(
      WmiSink.DefaultInterface,
      'SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE ' +
      'TargetInstance ISA "Win32_Process"',
      'WQL',
      0,
      nil
    );
    
    // 等待事件
    Writeln('监控进程创建事件中...按Enter键停止');
    Readln;
    
  finally
    WmiLocator.Free;
  end;
end;

// 事件处理过程
procedure WmiSinkObjectReady(ASender: TObject; const objWbemObject: ISWbemObject;
  const objWbemAsyncContext: ISWbemNamedValueSet);
var
  ProcessName: OleVariant;
begin
  ProcessName := objWbemObject.Properties_.Item('TargetInstance').Value.Properties_.Item('Name').Value;
  Writeln('新进程创建: ' + VarToStr(ProcessName) + ' - ' + DateTimeToStr(Now));
end;

示例3：执行WMI方法

text

// 生成的服务控制代码
procedure ControlWindowsService(const ServiceName, Action: string);
var
  objWMIService: OLEVariant;
  colServices: OLEVariant;
  Service: OLEVariant;
  InParams: OLEVariant;
  OutParams: OLEVariant;
begin
  objWMIService := GetWMIObject('winmgmts:\\localhost\root\CIMV2');
  colServices := objWMIService.ExecQuery(
    Format('SELECT * FROM Win32_Service WHERE Name = "%s"', [ServiceName])
  );
  
  if not VarIsNull(colServices) and (colServices.Count > 0) then
  begin
    Service := colServices.ItemIndex(0);
    InParams := Service.Methods_.Item(Action).InParameters.SpawnInstance_(0);
    OutParams := Service.ExecMethod_(Action, InParams, 0);
    
    if OutParams.ReturnValue = 0 then
      Writeln(Format('服务 %s %s 成功', [ServiceName, Action]))
    else
      Writeln(Format('操作失败，错误代码: %d', [OutParams.ReturnValue]));
  end
  else
    Writeln('未找到指定服务');
end;

// 使用示例
begin
  // 停止服务
  ControlWindowsService('Spooler', 'StopService');
  
  // 启动服务
  ControlWindowsService('Spooler', 'StartService');
end.