Count: Integer;
Свойство Count возвращает количество принтеров, установленных в ОС.
Sub Main;
Var
Printers: IGxPrinters;
i: Integer;
Begin
Printers:=New GxPrinters.Create;
i:=Printers.Count;
End Sub Main;
После выполнения примера в переменной «i» будет содержаться количество принтеров, установленных в ОС.
См. также: