Delphi 获取Windows 打印分辨率.rar

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