Delphi Printer.Printers 不刷新

Question

我创建了一个 Delphi 服务，负责将 QuckReports 打印到 Printer.Printers 列表中包含的特定打印机。我将打印机名称传递给例程，然后它在 Printer.printers 数组中查找以获得正确的索引。然后它执行以下操作:

QuickRep1.PrinterSettings.PrinterIndex := iIndex;

在帮助文件中，printer.refresh 是这样说的:“当前系统上安装的字体或打印机可能已更改时调用刷新”。因此，我在根据 Printer.printers 数组查找打印机名称之前调用刷新。

在我的一次安装中，此功能无法正常工作。如果添加/删除打印机，或者配置文件下有打印机的用户登录，则在停止并重新启动服务之前，列表似乎不会刷新。

此功能不适用于服务吗？发生这种情况的安装使用“虚拟服务”。这会不会有什么关系呢？

谢谢。

Answer 1

我的经验和理解是打印机阵列仅在应用程序启动时更新。每当安装新打印机时，都必须重新启动应用程序才能获取正确的列表。

我很想听听我自己对此有什么不同的经历。

编辑:来 self 下面的评论；我编写了一个小测试程序，确认 TPrinters.Refresh() 确实更新了打印机列表。