开发工具:
文件大小: 0byte
下载次数: 0
上传时间: 2005-03-25
详细说明： 首先十分感谢你的使用. 同时也希望你能对这个功能包进行扩充...发布你的扩充后的版本. --------------------------------------------------------- ^^ 声明这个组件包只能在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地址转化为域名 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
