![](https://img-blog.csdnimg.cn/20201014180756724.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
文章平均质量分 73
xiaohedou
这个作者很懒,什么都没留下…
展开
-
检测打印机
//是大富翁上看到的,觉得有用//设计: Linc 2004.04.29//功能: 判断打印机是否就绪//参数:允许是网络打印机function IsPrinterReady: Boolean;var hDeviceMode, hGlobal, hPrinter: THandle; dwNeeded: DWord; pDefs: TPrinterDefaults; pInfo: PPrin原创 2005-07-01 11:53:00 · 1069 阅读 · 0 评论 -
JPEG文件DPI信息
unit JpegUtils;interfaceuses Windows, Classes, SysUtils;procedure GetResJpg(JPGFile: string);procedure SetResJpg(name: string; dpix, dpiy: Integer);implementationprocedure GetResJpg(JPGFile:原创 2009-02-25 11:20:00 · 1646 阅读 · 0 评论