我的函数库

首先十分感谢你的使用. 同时也希望你能对这个功能包进行扩充...发布你的扩充后的版本. --------------------------------------------------------- ^^ 声明这个组件包只能在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地址转化为域名