大家都是程序员 没有必要重复一些无聊的事情 我的这些函数能给大家带来方便 ▎}
{▎ 如果觉得还一般 请关注 WWW.cdsunco.com/www.ccemove.com *** :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 Communal;
{* |<PRE>
|</PRE>}
interface
{$I CnPack.inc}
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
FileCtrl, ShellAPI, CommDlg, MMSystem, WinSock, IniFiles, D *** ables, BDE,
StdCtrls, ComObj, ADODB, Imm, DbCtrls, Db, Registry;
const
// 公共信息
{$IFDEF GB2312}
SCnInformation = '提示';
SCnWarning = '警告';
SCnError = '错误';
{$ELSE}
SCnInformation = 'Information';
SCnWarning = 'Warning';
SCnError = 'Error';
{$ENDIF}
C1=52845; //字符串加密算法的公匙
C2=22719; //字符串加密算法的公匙
resourcestring
{$IFDEF GB2312}
SUnknowError = '未知错误';
SErrorCode = '错误代码:';
{$ELSE}
SUnknowError = 'Unknow error';
SErrorCode = 'Error code:';
{$ENDIF}
type
EDBUpdateErr = class(Exception);//修改表结构时触发的错误句柄
//▎============================================================▎//
//▎================① 扩展的字符串操作函数 ===================▎//
//▎============================================================▎//
//从文件中返回Ado连接字串。
function GetConnectionString(DataBaseName:string):string;
//返回服务器的机器名称.
function GetRemoteServerName:string;
function InStr(const sShort: string; const sLong: string): Boolean; {测试通过}
{* 判断s1是否包含在s2中}
function IntToStrEx(Value: Integer; Len: Integer; FillChar: Char = '0'): string; {测试通过}
{* 扩展整数转字符串函数 Example: IntToStrEx(1,5,'0
李世石alphago人机围棋世纪大战今日打开 李世石信心人们比设备强劲。Google的总公司Alphabet企业老总埃里克-哈里斯今日在韩发布称,李世石AlphaGo中国围棋对决将要进行,不管是谁胜谁...
脾气差是现在很多人都有的特征,开始的时候,都是这样告诉自己:这是自己性格,难道要去压抑吗,所以很多人都选择爆发。 然而结果是现实的,冲动的暴脾气并没有那么好,很多时候发完脾气,过一会就会后悔,而...
张艺兴注册长沙染色体娱乐集团 即将离开SM单飞 自从鹿晗、黄子韬和吴亦凡陆续离开exo组合回国单干之后,张艺兴成为了exo组合中唯一的中国成员。不过sm破例允许张艺兴把中国重心放在了国内,还专门成立了...
提起“仙人跳”,大多人都明白是指利用人们的猎艳心里做的骗局,多是以女性引子,达到哄骗钱财的行为。但有时候仙人跳能最终骗到钱,还是多采用“欺诈勒索”的方式。这一骗局自古屡试不爽,到了现代社会仍存在,比如...
国务院新闻办公室2020年1月26日(星期日)下午3时举行新闻发布会,介绍新型冠状病毒感染的肺炎疫情联防联控工作有关情况,并答记者问。国家卫健委主任马晓伟表示,新型冠状病毒在潜伏期具有传染性,这同非典...
除了上述可履行文件外,下载器中还包括长途拜访木马。 木马答应进犯者在主机上履行各种操作,例如上传/下载、履行命令等。 18.8 1)、高发勒索宗族跟着互联网技能的迅猛开展,越来越多的数据以数字化的方式...