随笔分类 -  Delphi

摘要：{ 关于打印监控，下面是一个简单的示例，可以监控到打印的任务信息。 } unit FfrmMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls, StdCtrls, Buttons,WinSpool; ty... 阅读全文

摘要：很早以前写的,程序还有点问题,使用了Apro通讯控件,借鉴了网上的一些资源.短信采用了队列管理. 通讯控件也可以使用SPComm. unit FSMSThread; interface uses Classes, Messages,OoMisc, AdPort,Windows,forms,Contnrs,FSMSCommFun,ExtCtrls,SysUtils; type TSMSRece... 阅读全文

摘要：自己为了使用方便写的 //***************************************************************//说明：设置信息保存类，支持Reg、XML、Ini//作者：Garfield//创建时间:2004-11-18//最后修改时间：2004-11-18//修改历史：//1.调试通过Reg,Ini,XML有问题//XMLCreate(nil)或Cr... 阅读全文

摘要：首先从TidMessage中获得邮件的头信息： strHeader:=aIdMessage.Headers.text; 然后，用正则表达式取出Received: vReceiveIP:=GetNeedStrByPerlReg(strHeader,'(Received:)(.+)(])'); 再取出X-Originating-IP： vOriIP:=GetNeedStrByPerlReg(strHe... 阅读全文

摘要：;参考了许多脚本例子，这个脚本包含了大部分可能用到设置。我的这个安装程序中用到了安装数据库、写INI、定制安装等 ; 脚本用 Inno Setup 脚本向导生成。; 查阅文档获取创建 INNO SETUP 脚本文件详细资料! [Setup]AppName=天翔纤维检验管理系统AppVerName=天翔纤维检验管理系统 V2008AppPublisher=青岛天翔软件有限公司AppPublish... 阅读全文

摘要：unit FfrmMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,FileCtrl, ComCtrls; type TfrmMain = class(TForm) edtSrcDir... 阅读全文