Rozlišení tiskárny

Následující velmi krátký příklad zjišťuje, jaké je rozlišení výchozí tiskárny v DPI (bodech na palec). Musím bohužel konstatovat, že alespoň na mé tiskárně mi výsledek nepřipadal správný, ale třeba budete mít více štěstí. Opět budeme potřebovat knihovnu Printers. Takže zde je kód:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(GetDeviceCaps(Printer.Handle, LOGPIXELSX)) + ' x '+IntToStr(GetDeviceCaps(Printer.Handle, LOGPIXELSY))+ ' DPI');
end;