Delphi implements methods for detecting and enumerating system-installed printers _delphi

This paper illustrates the implementation method of Delphi printing program with an example. This example can detect all the printers installed in the system, cite these printers, the main function code is very simple, easy to read and understand.

The main functional code is as follows:

Unit Unit1;
Interface

uses
 Windows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,
 Dialogs, Stdctrls,printers, Xpman;

Type
 TForm1 = Class (Tform)
  Button1:tbutton;
  Groupbox1:tgroupbox;
  Memo1:tmemo;
  Button2:tbutton;
  Procedure Button1Click (sender:tobject);
  Procedure Button2click (sender:tobject);
 Private
  {Private declarations}
 public
  {public declarations} end
 ;

var
 form1:tform1;

Implementation

{$R *.DFM}

procedure Tform1.button1click (sender:tobject);
Begin
 Memo1.clear;
 Memo1. Lines.assign (printer.printers);
 If Trim (memo1. Text) = ' then
 begin
  ShowMessage (' No printer installed! ');
 End;
End;

Procedure Tform1.button2click (sender:tobject);
Begin close
 ;
End;

End.