我的函数库

• 软件简介: 

• 上论坛找商业破解网站程序
•  源码使用如需帮助，请到论坛发帖！ 

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

相关软件

• 常用函数库
• DelphiWorks(函数库) v1.3
• 非常实用的函数库 81种武艺
• 函数库

相关资讯

• 网友评论:

• 查看所有评论
• 我要发表评论