Delphi的一个超级函数代码库

Win32.pas API函数的简单调用，如建立进程，建立文件映射，建立、读取管道（可以捕捉DOS程序输出）等。 StrFuncs.pas 字符串处理单元，完全兼容宽字节处理（即使用wideString），特有的中文字符串处理函数（如简繁转换等等），经过多次优化，大多以编表的方式进行处理（一般来说是最快的处理方式）。 BiosHelp.pas　 读取Bios信息的单元，兼容各种windows系统。 Streams.pas　 流（TStream）输入输出处理单元，可以用来保存读取控件属性。 ShlFile.pas　 各种文件操作，包括获得系统特殊路径，获取文件图标等。 RegExpr.pas

/* adler32.c -- compute the Adler-32 checksum of a data stream
 * Copyright （C） 1995-2004 Mark Adler
 * For conditions of distribution and use see copyright notice in zlib.h
 */

/* @（#） $Id$ */

#define ZLIB_INTERNAL
#include “zlib.h“

#define base 65521UL    /* largest prime smaller than 65536 */
#define NMAX 5552
/* NMAX is the largest n such that 255n（n+1）/2 + （n+1）（base-1） <= 2^32-1 */

#define DO1（bufi）  {adler += （buf）[i]; sum2 += adler;}
#define DO2（bufi）  DO1（bufi）; DO1（bufi+1）;
#define DO4（bufi）  DO2（bufi）; DO2（bufi+2）;
#define DO8（bufi）  DO4（bufi）; DO4（bufi+4）;
#define DO16（buf）   DO8（buf0）; DO8（buf8）;

/* use NO_DIVIDE if your processor does not do division in hardware */
#ifdef NO_DIVIDE
#  define MOD（a） \
    do { \
        if （a >= （base 

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      39192  2002-05-24 21:09  Tiger.pas

     文件      75304  2008-09-23 07:10  StrFuncs.pas

     文件      10039  2006-07-23 05:36  Streams.pas

     文件      17092  2006-07-23 08:12  ShlFile.pas

     文件      10682  2003-12-04 01:53  ShareMemRep.pas

     文件      11998  2002-05-26 11:19  SHA.pas

     文件      19589  2002-05-25 13:35  RIPEMD.pas

     文件       3634  2007-02-04 19:23  REPDLGWrap.pas

     文件       4341  2007-02-04 19:23  REPDLGWrap.dfm

     文件       4911  2007-02-04 07:04  REPDLGEncryption.pas

     文件       4464  2006-07-25 22:28  REPDLGEncryption.dfm

     文件     148276  2006-07-12 09:08  RegExpr.pas

     文件       9839  2006-07-24 10:42  MessageDlg.pas

     文件      16224  2002-05-28 20:48  MD.pas

     文件      16660  2006-07-23 06:43  Lists.pas

     文件       2534  2006-07-25 13:36  INSDLGRandomStr.pas

     文件       3227  2006-07-25 22:20  INSDLGRandomStr.dfm

     文件       1632  2006-08-03 02:31  INSDLGNumbaseConv.pas

     文件       2284  2006-08-03 02:17  INSDLGNumbaseConv.dfm

     文件       3021  2006-07-25 21:05  INSDLGHash.pas

     文件       8125  2006-07-25 21:40  INSDLGHash.dfm

     文件       1500  2008-09-29 09:34  INSDLGexpression.pas

     文件       1597  2008-09-29 09:33  INSDLGexpression.dfm

     文件       6500  2006-07-24 12:07  INSDLGDatetime.pas

     文件       3042  2006-07-24 16:31  INSDLGDatetime.dfm

     文件       4446  2006-07-24 12:07  INSDLGAscii.pas

     文件       3384  2006-07-24 11:22  INSDLGAscii.dfm

     文件       2397  2005-07-25 13:01  inftrees.obj

     文件       2428  2005-07-11 08:50  inftrees.h

     文件      14085  2005-07-18 04:27  inftrees.c

............此处省略75个文件信息