Delphi 获取Windows 打印分辨率.rar
Delphi获取Windows打印分辨率,通过单击窗口中的按钮,直接获取到打印机支持的分辨率大小,为下一步定制打印程序提供依据。以下是核心代码: Try Application.MessageBox(pchar('水平分辨率为:'IntToStr(GetDeviceCaps(printer.Handle,LOGPIXELSX))Chr(13) '垂直分辨率为:'IntToStr(GetDeviceCaps(Printer.Handle,LOGPIXELSY))),'提示',64); Except Appl