이 기사에서는 델파이 인쇄 프로그램의 구현 방법을 예제와 함께 설명합니다. 이 예에서는 시스템에 설치된 모든 프린터를 감지하고 이러한 프린터를 열거할 수 있습니다. 주요 기능 코드는 매우 간단하고 누구나 쉽게 읽고 이해할 수 있습니다.
주요 기능 코드는 다음과 같습니다.
단위 Unit1; 인터페이스는 Windows, 메시지, SysUtils, 변형, 클래스, 그래픽, 양식, 대화 상자, StdCtrls, 프린터, XPMan을 사용합니다. TForm1 = class(TForm) Button1: TButton1: TGroupBox: TButton; ; 프로시저 Button1Click(Sender: TObject); Button2Click(Sender: TObject); private { Private 선언 } public { Public 선언 } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin Memo1.Clear; .Assign(Printer.Printers); Trim(memo1.Text) = ''이면 시작됩니다. showmessage('설치된 프린터가 없습니다!'); end;end;procedure TForm1.Button2Click(Sender: TObject);begin Close;end;end.