大家都是程序员 没有必要重复一些无聊的事情 我的这些函数能给大家带来方便 ▎}
{▎ 如果觉得还一般 请关注 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
2014年Dell SecureWorks剖析的一个事例中,BGP绑架被用来阻拦比特币矿机到采矿池服务器的链接。 经过将流量重路由至进犯者操控的矿池,进犯者就可以盗取受害者的比特币。 这次进犯在两月...
《孔子拜師》優秀教案設計讀書啊,我信赖但有朗朗書聲出破廬,遲早有一日有萬鯉躍龍門之奇象。 教學目標 1.正確、流利、有情绪地朗讀課文。瞭解孔子拜師求學的經過,感受孔子、老子的品行。 ...
没有微信同步聊天服务器的记录,需要之前的聊天记录看,需要找回昔日的手机聊天记录同步 如何让其他微信不能看到我们以前的聊天记录? 专家教你怎么远程查看对象微信聊天(同步接收他人的微信聊天记录) 微信如何...
谢 1.只是聊天还是有其他的事情发生? 2.与其他女人聊天后对你的态度有任何变化吗? 3.有没有和你老公谈过这个事情? 4.最终的结果无非以下几种:你老公改了,你们幸福的生...
怎样成为一名真正的黑客(真正的石墨烯概念股)(tiechemo.com)一直致力于黑客(HACK)技术、黑客QQ群、信息安全、web安全、渗透运维、黑客工具、找黑客、黑客联系方式、24小时在线网络黑客...
我好喜欢好喜欢刚小希特别特别的喜欢 这个人肯定是陈梓嘉,看来你需要详细了解下了。给你找点资料:陈梓嘉,就读于中国人民大学,第一次成长的转折是在本科期间,她参加了“校园十大风云人物评选。 我来告诉你是在...