Výpis tiskáren instalovaných v systému

Problematikou tiskáren a tisku obecně jsme se v našem seriálu dosud nezabývali a je to možná škoda. Proto si teď ukážeme několik tipů a příště v tom možná ještě budeme částečně pokračovat. Nejprve tedy výpis instalovaných tiskáren. V tom nám pomůže knihovna Printers; celý kód je vlastně velice jednoduchý. Předpokladem je, že máte někde na formuláři umístěn ListBox, kam se budou instalované tiskárny vypisovat. Součástí výpisu je též port tiskárny. A zde je tedy jednoduchý výpis:
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items := Printer.Printers;
ListBox1.ItemIndex := Printer.PrinterIndex;
end;