Odczyt nazw zainstalowanych drukarek i drukarki domyślnej

Aby po kliknięciu przycisku Button1 dodać do komponentu Memo1 informację o zainstalowanych drukarkach (nazwa i port) i informację o drukarce domyślnej:

Unit1.cpp

#include <Printers.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Memo1->Lines = Printer()->Printers;
   Memo1->Lines->Add("Domyślna drukarka: " +
                     Printer()->Printers->Strings[Printer()->PrinterIndex]);
}