БОЛЬШОЙ FAQ ПО DELPHI



Как узнать, какие принтеры установлены в системе 2


 // uses printers
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   i: integer;
 begin
   ListBox1.Items.Clear;
   for i := 0 to Printer.Printers.Count - 1 do
     ListBox1.items.Add(Printer.Printers.Strings[i]);
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ