请问如何活的所有的打印机名称?(50分)

  • 主题发起人 主题发起人 cw970519
  • 开始时间 开始时间
C

cw970519

Unregistered / Unconfirmed
GUEST, unregistred user!
包括已经安装在机器上的网络打印机名称
 
呵呵,一个例子:
代码:
  uses
     ....,Printers;//加上Printers
procedure TForm1.Button1Click(Sender: TObject);
begin

  ComboBox1.Clear;
  ComboBox1.Items.Assign(Printer.Printers);
end;
 
uses printers
.
.
ComboBox1.Clear;
ComboBox1.Items.Assign(Printer.Printers) ;
for i:=0 to printer.Printers.Countdo

combobox1.Items:=copy(combobox1.Items,1,pos(' on ',combobox1.Items)-1);
 
接受答案了.
 
后退
顶部