一个简单的打印监控示例
摘要:{ 关于打印监控,下面是一个简单的示例,可以监控到打印的任务信息。 } unit FfrmMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls, StdCtrls, Buttons,WinSpool; ty...
阅读全文
posted @
2009-04-15 07:54
garfieldtom
阅读(651)
推荐(0) 编辑
早些时候写的一个发送手机短信的类
摘要:很早以前写的,程序还有点问题,使用了Apro通讯控件,借鉴了网上的一些资源.短信采用了队列管理. 通讯控件也可以使用SPComm. unit FSMSThread; interface uses Classes, Messages,OoMisc, AdPort,Windows,forms,Contnrs,FSMSCommFun,ExtCtrls,SysUtils; type TSMSRece...
阅读全文
posted @
2009-04-03 10:43
garfieldtom
阅读(1052)
推荐(0) 编辑
一个操作配置文件(Reg,ini,XML)的类
摘要:自己为了使用方便写的 //***************************************************************//说明:设置信息保存类,支持Reg、XML、Ini//作者:Garfield//创建时间:2004-11-18//最后修改时间:2004-11-18//修改历史://1.调试通过Reg,Ini,XML有问题//XMLCreate(nil)或Cr...
阅读全文
posted @
2009-04-01 13:01
garfieldtom
阅读(881)
推荐(0) 编辑
Indy中判断邮件来源
摘要:首先从TidMessage中获得邮件的头信息: strHeader:=aIdMessage.Headers.text; 然后,用正则表达式取出Received: vReceiveIP:=GetNeedStrByPerlReg(strHeader,'(Received:)(.+)(])'); 再取出X-Originating-IP: vOriIP:=GetNeedStrByPerlReg(strHe...
阅读全文
posted @
2009-03-16 15:39
garfieldtom
阅读(254)
推荐(0) 编辑
辛辛苦苦,写了个INNO的安装脚本
摘要:;参考了许多脚本例子,这个脚本包含了大部分可能用到设置。我的这个安装程序中用到了安装数据库、写INI、定制安装等 ; 脚本用 Inno Setup 脚本向导生成。; 查阅文档获取创建 INNO SETUP 脚本文件详细资料! [Setup]AppName=天翔纤维检验管理系统AppVerName=天翔纤维检验管理系统 V2008AppPublisher=青岛天翔软件有限公司AppPublish...
阅读全文
posted @
2009-03-13 19:51
garfieldtom
阅读(1308)
推荐(0) 编辑
根据照片文件的EXIF信息来分目录整理
摘要:unit FfrmMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,FileCtrl, ComCtrls; type TfrmMain = class(TForm) edtSrcDir...
阅读全文
posted @
2009-03-11 17:35
garfieldtom
阅读(952)
推荐(0) 编辑