|
|
|
Seznam tiskáren
|
04.12.2009
|
Úvod
Funkce vypíše nainstalované tiskárny v systému do ListBoxu nebo Memo.
Uses
Printers
Prvky
Button1
ListBox1
Kód
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
ListBox1.Items.AddStrings(Printer.Printers);
end;
Varianty
3: Memo1.Lines.Clear;
4: Memo1.Lines.AddStrings(Printer.Printers);
|
|
|
