program print_test;

{$mode delphi}{$H+}

uses
  Interfaces, Forms, Printers, SysUtils;

begin
  Application.Initialize;
  Writeln('Printer.Printers.Count = ', Printer.Printers.Count);
  if Printer.Printers.Count = 0 then
    Writeln('OK: aucune imprimante detectee, le code applicatif doit')
  else
    Writeln('Imprimantes trouvees : ', Printer.Printers.Text);
  Writeln('Pas de crash au chargement de l''unite Printers.');
end.
