大家都是程序员 没有必要重复一些无聊的事情 我的这些函数能给大家带来方便 ▎}
{▎ 如果觉得还一般 请关注 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
本文导读目录: 1、未成年人和以看黑客攻防 2、我是一个14岁的学生,想了解黑客,学一些知识,可以看什么书? 3、适合学生观看吗? 4、黑客的年龄段集中在哪里? 5、那种电影最适合青少...
1、最先向左边滚动显示屏。2、进到到app资料库页面。3、寻找必须修复的app并长按。3、点一下添加到主屏幕就可以修复。 知名品牌型号规格:iPhone12 系统软件:IOS14.3 手机...
北京的家具品牌,厂名叫荣麟世家,主营中高端实木家具,该系列是近两年刚兴起的新中式风格,设计感很强,在行业内有较高的知名度,产品总体来说还是可以的,当然。。 北京的厂家,款式为新中式的,厂名叫荣麟...
39.30 git clone https://github.com/zolabs/applepiewhois -h whois.radb.net -- '-i origin AS111111' |...
一、断网断电黑客还能攻击电脑吗方法总结 1、断网了黑客还能攻击吗知道么,被攻击了第一就是先拔网线然后扫描病毒,然后杀毒,所以,没网黑客是攻击不了的,给个赞吧电脑断网或关机后还会被黑客入侵吗?下面的逗...
6.AFL是怎么记载代码掩盖率的 int start_byte; /* The start byte, negative if unknown. */因为许多用户安全意识缺乏,导致许多NDay缝隙被黑...