unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,printers,WinSpool;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    PrintDialog1: TPrintDialog;
    Memo2: TMemo;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Device,Driver,Port:array[0..Max_Path] of Char;
hMode:THandle;
pMode:pDevMode;
hPrinter:THandle;
pPrinter:PPrinterInfo2;
dwNeeded:DWord;
begin
if Printer.Printers.Count=0 then
   begin
     MessageDlg('ok',mtInformation,[mbOK],0);
     Exit;
   end;
WinSpool.OpenPrinter(PChar(ComboBox1.Text),hPrinter,nil);
WinSpool.GetPrinter(hPrinter,2,pPrinter,0,@dwNeeded);
System.GetMem(pPrinter,dwNeeded);
if not WinSpool.GetPrinter(hPrinter,2,pPrinter,dwNeeded,@dwNeeded) then
   begin
     ShowmessageFmt('%ds',[GetLastError,SysErrorMessage(GetLastError)]);
     Exit;
   end;
Memo1.Clear;
Memo1.Lines.Add(pPrinter^.pServerName);
Memo1.Lines.Add(pPrinter^.pPrinterName);
Memo1.Lines.Add(pPrinter^.pShareName);
Memo1.Lines.Add(pPrinter^.pPortName);
Memo1.Lines.Add(pPrinter^.pDriverName);
Memo1.Lines.Add(pPrinter^.pComment);
Memo1.Lines.Add(pPrinter^.pLocation);
Memo1.Lines.Add(pPrinter^.pSepFile);
Memo1.Lines.Add(pPrinter^.pPrintProcessor);
Memo1.Lines.Add(pPrinter^.pDatatype);
Memo1.Lines.Add(pPrinter^.pParameters);
Memo1.Lines.Add(IntToStr(pPrinter^.Attributes));
Memo1.Lines.Add(IntToStr(pPrinter^.Priority));
Memo1.Lines.Add(IntToStr(pPrinter^.DefaultPriority));
Memo1.Lines.Add(IntToStr(pPrinter^.StartTime));
Memo1.Lines.Add(IntToStr(pPrinter^.UntilTime));
Memo1.Lines.Add(IntToStr(pPrinter^.Status));
Memo1.Lines.Add(IntToStr(pPrinter^.cJobs));
Memo1.Lines.Add(IntToStr(pPrinter^.AveragePPM));
Memo2.Clear;
Memo2.Lines.Add(pPrinter^.pDevMode^.dmFormName);
Memo2.Lines.Add(pPrinter^.pDevMode^.dmDeviceName);
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmSpecVersion));
Memo2.Lines.Add(intToStr(pPrinter^.pDevMode^.dmDriverVersion));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmSize));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmDriverExtra));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmFields));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmOrientation));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmPaperSize));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmPaperLength));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmPaperWidth));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmScale));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmCopies));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmDefaultSource));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmPrintQuality));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmColor));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmDuplex));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmYResolution));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmTTOption));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmCollate));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmLogPixels));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmBitsPerPel));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmPelsWidth));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmPelsHeight));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmDisplayFlags));
Memo2.Lines.Add(intToStr(pPrinter^.pDevMode^.dmDisplayFrequency));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmICMMethod));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmICMIntent));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmMediaType));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmDitherType));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmICCManufacturer));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmICCModel));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmPanningWidth));
Memo2.Lines.Add(IntToStr(pPrinter^.pDevMode^.dmPanningHeight));
System.FreeMem(pPrinter);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//Button1.Caption:='Show PrinterDialog';
Button1.Caption:='WinSpool.GetPrinter';
ComboBox1.Items.Assign(Printer.Printers);
ComboBox1.ItemIndex:=0;
end;

end.