Delphi服务程序注册与卸载uses winsvc;function InstallService(ServiceName, DisplayName, FileName: string): boolean;varSCManager,Service: THandle;Args: pchar;beginResult := False;SCManager := OpenSCManager(nil,

Delphi 異常捕捉的一種方法使用TApplicationEvents控件在OnException()事件裏面添加異常處理代碼If  E  is EOutOfMemory then // 內存不足……Else  if  E  is EAccessViolation then // 非法訪問內存……異常類型定義在SysUtils.pas單元

TPrinter 类是Delphi 对Windows 打印处理系统的封装，它能够帮助程序员在开发打印程序时尽可能地减少工作量。在程序中使用TPrinter，只要在单元的Use 子句后面添加Printers 即可。当前打印机的DevMode 结构的句柄可以通过调用Tprinter 类中的GetPrinter 方法来获取。当程序获得DevMode 结构的句柄后，就调用GlobalLock 函数来得到指

uses   zlib; //将Src使用Zlib压缩后存入Dst当中 procedure PackStream(const Src:TStream; Dst:TStream); var   CompStream: TCompressionStream; begin   //增加“断言”以防止输入参数有误   Assert(Src   Assert(Dst

格式：操作数 Shl/Shr 移动位数说明：操作数与返回值都是整数例子：16(10) = 10000(2)     16(10) Shr 1 = 10000(2) Shr 1 = 1000(2) = 8(10)     16(10) Shr 2 = 10000(2) Shr 2 = 100(2) = 4(10)说明：一个整数(I)按位左移一位，相当于把它乘以2，即 I * 2

MIS系统权限控制的一个简便方法MIS系统权限控制的一个简便方法收藏 新一篇: 创MIS系统的权限又多又复杂，很多人是在用户数据表中设置多个字段，每个字段代表一个权限，或者设置一个字符串，不同的字符组合表示用户的不同权限。简单一点的，可以预先设置几个角色，根据角色来行使预设权限，但又不够灵活。现介绍一个简单灵活的权限分配控制的方法，并无高深见解，只是很多人忽略了它。如果您正在设计权限控制模式，不妨

(*首先感谢原作者，但当初在csdn上搜索到该单元时，就没原作者的信息（程序里的有些乱码的注释应该是原作者留下的吧？呵呵）有不足的地方还请各位看官多多指点哈 ^_^ Modify By 角落的青苔@2005/05/13   说明：增加导出过程中的回调功能（用户停止，进度条）         是否在第一行插入FieldName         改错：以前只能对word类型数值写入，DWord会R

Variant 数组 Variant： 一种可以拥有各种数据类型； 也可以告诉目前存储的数据是什么类型(通过使用VarType函数)； 可以给相同的Variant分配不同的数据类型，只要Variant包含数字值就可以执行算法； variant数组只不过是variant型的数组，不必包含同类型的 数据；　variant数组的创建方法： function VarArrayCreate(const Bo

//取指定文件夾及其子文件夾內指定類型文件列表procedure _GetFileList(AStrings: TStrings; ASourFile, FileName: string);// 調用示例: _GetFileList(FileList, c:/, *.pas)var  sour_path, sour_file: string;  TmpList: TStringList

{*************************************************************}{                                                             }{       注册函数                                              }{       作者: 陈新光

unit untFixForm;interfaceusesClasses, SysUtils, Controls, Forms;typeTFontedControl = class(TControl)public    property Font;end;TFontMapping = record    SWidth : Integer;    SHeight: Integer; 

unit UDMPB;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,  IdFTP, StdCtrls, idFTPList

回调函数： 回调函数是这样一种机制：调用者在初始化一个对象（这里的对象是泛指，包括OOP中的对象、全局函数等）时，将一些参数传递给对象，同时将一个调用者可以访问的函数地址传递给该对象。这个函数就是调用者和被调用者之间的一种通知约定，当约定的事件发生时，被调用者（一般会包含一个工作线程）就会按照回调函数地址调用该函数。 这种方式，调用者在一个线程，被调用者在另一个线程。 在Windows API中有