首先十分感谢你的使用.
同时也希望你能对这个功能包进行扩充…发布你的扩充后的版本.
———————————————————
^^
声明这个组件包只能在delphi7上正常安装.
如果您用的是delphi6.则会在安装时出错。
————————————————-
作者：李金浩
QQ:67260745
E-mail:lijinjie2793311@163.com
功能包中的大部分功能模块为本人自己所写。。部分收录我的网友的作品及网上比较精典的程序段。
Function HexBCDToint(sHexBCD:Byte):integer;
Function IntToBCD(Int:Byte):word;
Function MinuteToTime(Minute:Double):TdateTime;overload;//分钟到标准时间的转换
Function MinuteToTime(Minute:Double;var DayCount:integer):TdateTime;overload;
//——————————————————————————
Function GetWeekOfChina(dDay:TdateTime):string;//得到星期
Function GetWeekOfNum(dDay:TdateTime):integer;
//——————————————————————————
Function IsStrAsNumber(NumStr:string):Bool;//判断字符串是不是有效数字在字符串
Function IsStrInOtherStr(mainStr,FindStr:string):Bool;//检测在一个字符串中是否包括另一个字符串
function IsCOMClassRegistered(GUID:TGUID):Boolean;//判断一个COM对像是否已注册
Function IsBDEInstalled:boolean;//查看ＢＤＥ是否安装
function GetPYIndexChar( hzchar:string):char;//得到汉字的首字母
Function Squ(X,Y:integer):integer;overload;//计算x的Y次方
Function Squ(X:Double;Y:integer):Double;overload;//计算x的Y次方
Function RandomNumByGUID:String;
//————–系统功能————
Function AppRunOnce:Boolean;//让程序只能运行一个实例
procedure AutoRunByReg(FileName:string= );//让程序自动运行
procedure DelAutoRunByReg(KeyName:string= );//删除一个自启动项
procedure MoveWindow(handle:Thandle);overload;//托动无标题窗体
Function GetAppPath(AddLastName:string= ):string;//得到程序的当前目录
Procedure ReMoveWinTitle(Form:Tform);//移去窗体的Title;
procedure BeepEx(Freq:Word;MSecs:LongInt); //DoBeep调用
procedure ClickStartMenu;//通过代码击活开始菜单
procedure OpenScreenSave;//打开屏幕保护
// procedure DelTree(DirName:String);//删除目录
procedure DeleteDir(SourcePath: String); //删除指定文件夹(含子文件夹),文件夹及其夹内文件可以具有只读或隐藏属性
procedure DelSelfApp;//程序在运行完后就删除自己
(*—————–*)
procedure HideTaskBar(bHide:boolean=False);//显示或掩藏TaskBar
procedure DisplayOFFON(SW: boolean);//关闭和打开显示器
procedure HideDesktop(sw:Boolean=false);//显示和隐藏桌面
procedure HideDesktopAndTaskBar(sw:Boolean=false);//同时隐藏桌面和任务栏
procedure HideTrayNotify(sw:Boolean=false);//隐藏系统通知区域
procedure HideWinButton(sw:Boolean=false);//隐藏开始按钮
procedure HideQuickLaunchBar(sw:Boolean=false);//隐藏快速启动按钮栏
// procedure HideAppInTastWin(sw:Boolean=False);//使程序在任务管理器中隐藏
procedure DisbleQuikKey(sw:boolean=false);//屏蔽ALT+F4和ALT+Ctrl+Del
Function GetTaskBarHeight:integer;//得到任务栏的高度
//——————————————————————————
function GetDesktopListViewHandle: THandle; { 得到桌面列表试图的句柄 }
procedure MinWinAll;//最小化所有的窗体
procedure CloseWinAll;//关闭所有窗体
procedure DrawWindowRect(handle: Thandle;wColor: Tcolor=clBlack;PenWidth:integer=1);//给窗体加个边框
Procedure SetParentWinDefFont(Sender:TObject;const defFont:Tfont=nil);//设置parent窗体的默认字体
{得到memo中光标所在的位置，行号，行长}
procedure GetMemoMousePos(m:Tmemo;var posValue:TmemoPos);overload;
procedure GetMemoMousePos(m:TRichEdit;var posValue:TmemoPos);overload;
//Memo翻页
procedure setScrollPos(MHandle:Thandle;const pos:TClickType=PageDown);overload;
//得到指定窗体的大小
procedure GetWinRect(const WinHandle:HWND;var winRect:TwinRect);
procedure TimeDelay(DT:Dword);//精确毫秒级延时
procedure SetIPaddress(SIP: TNetValue;const isAuto:boolean=false);//设定网络Ip地址
Function GetLocalIP:string;//得到本机的IP地址
Procedure OpenURL(URL:string);//打开1个web URL
//==============================================================================
// 这一部分的函数摘自其他作者处.姓名不详
//==============================================================================
function GetDisplayFrequency: Integer; //获取显示刷新率
function GetIdeSerialNumber: String; //获取第一个硬盘的序列号
function GetCPUSpeed: Double; //获取当前CPU速率
Function GetCPUID:string; //获取CPU ID
Function GetCPUVendor: string; //获取CPU 类型
Function GetFileLastAccessTime(sFileName:string):TDateTime; //获取文件最后访问日期和时间
Function GetFileCreateTime(const strFileName:string):TDateTime; //获取文件创建时间
Function GetFileModifyTime(const strFileName:string):TDateTime; //获取文件修改时间
Function GetDNSTOIP(DNSName:String):String; //把域名转化为IP地址
Function GetDNSName(IPAddress:String):String; //把IP地址转化为域名
//==============================================================================
// 摘用部分结束
//==============================================================================
//——————————–
// procedure GetNetConf
//———-INI文件操作集———–
(*_读ini文件_*)
Function ReadIniFile(const FileName,Section, Ident:string; Default: string):string; overload;
Function ReadIniFile(const FileName,Section, Ident:string; Default: integer):integer; overload;
Function ReadIniFile(const FileName,Section, Ident:string; Default: Double):Double; overload;
Function ReadIniFile(const FileName,Section, Ident:string; Default: Boolean):Boolean; overload;
Function ReadIniFile(const FileName,Section, Ident:string; Default: TdateTime):TdateTime; overload;
(*_写INI文件_*)
procedure WriteIniFile(const FileName,Section, Ident:string; Value:string);overload;
procedure WriteIniFile(const FileName,Section, Ident:string; Value:integer);overload;
procedure WriteIniFile(const FileName,Section, Ident:string; Value:Double);overload;
procedure WriteIniFile(const FileName,Section, Ident:string; Value:Boolean);overload;
procedure WriteIniFile(const FileName,Section, Ident:string; Value:TdateTime);overload;
//————————–
(*模拟鼠标单击*)
procedure SendMouseClick(const WinHandle:HWND;const PosX,PosY:integer;const ClickFlag:TClickType=vKeyclick);
(*模拟键盘按键*)
procedure SendKey(const WinHandle:HWND;const Vkey:word;const KeyClickFlag:TClickType=vkeyDown);
procedure SendComBoKey(const CtrlKey,FnKey:word);//如：发送ALT+F4
//————————-
{在指定的chart控件上画1条数直线，并返回mouse所在的index}
Function ChartMoveLine(Chart:Tobject;MousePos_X:Integer;LineColor:TColor=clRed):integer;
procedure DataToExcelCSV(SaveFileName:string;DataSet:TDataSet;ShowCompleteBoX:Boolean=True;GroupCount:integer=1);
(*———声音DoBeep发声———-*)
// procedure Destroy;
{——————————————————————————-
作者: 不死鸟 ^^me 的好朋友提供的部分代码
日期: 2004.03.31
——————————————————————————-}
//将数据转为Excel文件，TDataSet中visible为False的字段不加入
// function DataToExcel(myExcelName: String; myDataSet: TDataSet): Boolean;
function ToBigRMB(RMB: string): string; //小写金额转大写
function IsRightDate(mInputDate:String):Boolean;//输入的日期是否正确
//字符串简单加密、解密函数 key=1时为加密，0为解密,利用xor操作
function Decrypt(const s: string; key:Byte=1): string;
function RightCopy(S: string; Index,count:Integer): string; //从右第Index位复制Count个字符
