打假~~~~ 相关网址：[url]http://delphibbs.timeboat.net:8080/delphibbs/DispQ.asp?LID=2991463[/url]
来自：dingbaosheng, 时间：2005-2-23 11:58:55, ID：2994930 | 编辑
打假，楼主的实用函数 大多来自Cnpack包 中的CnCommon.pas单元
竟然不顺便提一下cnpack未免太不厚道了罢。
连说明都是一样的：
{▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎}
{▎ ▎}
{▎ 大家都是程序员 没有必要重复一些无聊的事情 我的这些函数能给大家带来方便 ▎}
{▎ 如果觉得还一般 请关注 [url]WWW.cdsunco.com/www.ccemove.com[/url] QQ:35013354 ▎}
{▎ 系统公用函数及过程 ▎}
{▎ ▎}
{▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎}
{▎ 软件名称： 开发包基础库 ▎}
{▎ 单元名称： 公共运行时间库单元 ▎}
{▎ 单元版本： V1.0 ▎}
{▎ 备 注： 该单元定义了组件包的基础类库 ▎}
{▎ 开发平台： PWin98SE + Delphi 6.0 ▎}
{▎ 兼容测试： PWin9X/2000/XP + Delphi 6.0 ▎}
{▎ 本 地 化： 该单元中的字符串均符合本地化处理方式 ▎}
{▎ 更新记录： 2002.07.03 V2.0 ▎}
{▎ 整理单元，重设版本号 ▎}
{▎ 2002.03.17 V0.02 ▎}
{▎ 新增部分函数，并部分修改 ▎}
{▎ 2002.01.30 V0.01 ▎}
{▎ 创建单元（整理而来） ▎}
{▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎}
unit CnCommon;
{* |<PRE>
================================================================================
* 软件名称：开发包基础库
* 单元名称：公共运行基础库单元
* 单元作者：CnPack开发组
* 备 注：该单元定义了组件包的基础类库
* 开发平台：PWin98SE + Delphi 5.0
* 兼容测试：PWin9X/2000/XP + Delphi 5/6
* 本 地 化：该单元中的字符串均符合本地化处理方式
* 单元标识：$Id: CnCommon.pas,v 1.50 2004/11/20 09:07:40 yygw Exp $
* 修改记录：
* 2004.09.18 by Shenloqi
* 为Delphi5增加了BoolToStr函数
* 2004.05.21 by Icebird
* 修改了函数GetLine, IsInt, IsFloat, CnDateToStr, MyDateToStr
* 2003.10.29 by Shenloqi
* 新增四个函数CheckWinXP,DllGetVersion,GetSelText,UnQuotedStr
* 2002.08.12 V1.1
* 新增一个函数 CheckAppRunning by 周劲羽
* 2002.04.09 V1.0
* 整理单元，重设版本号
* 2002.03.17 V0.02
* 新增部分函数，并部分修改
* 2002.01.30 V0.01
* 创建单元（整理而来）
================================================================================
|</PRE>}
[url]http://www.cnpack.org/[/url]