在 Inno Setup 中使用 WMI 查询列出所有物理打印机答案

【问题标题】：List all physical printers using WMI query in Inno Setup在 Inno Setup 中使用 WMI 查询列出所有物理打印机
【发布时间】：2017-05-24 19:30:47
【问题描述】：

我正在尝试根据Query available RAM in Inno Setup 的回答获取连接到 Windows 的物理打印机名称列表。

但只需获取：“发送到 OneNote 16”。

这是我的查询：

Query := 'SELECT Name FROM Win32_Printer';
Printer := WbemQuery(WbemServices, Query);
if not VarIsNull(Printer) then
begin
  Log(Format('Printers=%s', [Printer.Name]));
end;

【问题讨论】：

标签： inno-setup wmi-query pascalscript

【解决方案1】：

你必须迭代结果集：

var
  Query: string;
  WbemLocator, WbemServices, WbemObjectSet: Variant;
  Printer: Variant;
  I: Integer;
begin
  WbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  WbemServices := WbemLocator.ConnectServer('.', 'root\CIMV2');
  Query := 'SELECT Name FROM Win32_Printer';
  WbemObjectSet := WbemServices.ExecQuery(Query);
  if not VarIsNull(WbemObjectSet) and (WbemObjectSet.Count > 0) then
  begin
    for I := 0 to WbemObjectSet.Count - 1 do
    begin
      Printer := WbemObjectSet.ItemIndex(I);
      if not VarIsNull(Printer) then
      begin
        Log(Printer.Name);
      end;
    end;
  end;
end;

代码需要 Unicode 版本的 Inno Setup 来获得 better Variant support。

实际上，您可以在同一个问题中看到此代码，其中WbemQuery 来自：
Is there a way to read the system's information in Inno Setup

注意Win32_NetworkAdapterConfiguration 是如何在那里迭代的。

【讨论】：