Delphi
关注
分享
扫一扫
surpaimb
这个作者很懒，什么都没留下…
展开
专栏收录文章
- 默认排序
- 最新发布
- 最早发布
- 最多阅读
- 最少阅读
-
delphi根据不同图片生成不规则窗口的实现(仅限于BMP格式)
unit CreateImageForm; interface uses Windows, SysUtils, Variants, Classes, Graphics; procedure CreatRgnForm( Bmap: TBitMap; WColor: TColor; hand:THandle); implementation procedure CreatRgnForm( Bmap:原创 2009-12-17 17:02:00 · 3361 阅读 · 1 评论 -
delphi LPT1端口打印与开钱箱
{设置打印机} Assignfile(RPrinter,'LPT1'); {准备写文件} Rewrite(RPrinter); {向后倒纸} //Writeln(RPrinter,chr($b)+chr(27)+'K'+chr(40)); {打印} Writeln(RPrinter,'测试:****'+(Edit1.text)); {向前进纸} Wr转载 2013-05-18 16:08:08 · 4871 阅读 · 0 评论