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

Question

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

但只得到："Send To 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;

Answer 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;

代码需要 .

的 Inno Setup Unicode 版本

实际上，您可以在同一个问题中看到这段代码，您从中获取 WbemQuery 的地方：

注意 Win32_NetworkAdapterConfiguration 是如何迭代的。

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

List all physical printers using WMI query in Inno Setup

inno-setup

wmi-query

pascalscript