下载 > 资源分类 >  服务器应用 >  DNS > 我的函数库

我的函数库

2005-03-25 上传大小:0B
首先十分感谢你的使用.
同时也希望你能对这个功能包进行扩充...发布你的扩充后的版本.
---------------------------------------------------------
^^
声明这个组件包只能在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;//查看BDE是否安装
   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地址转化为域名
...展开收缩
综合评分:4.3(14位用户评分)
直接下载 开通VIP会员 免积分下载

评论共有0条

评论资源

您不能发表评论,可能是以下原因:

登录后才能评论

待评论资源
 

热门专辑

关闭
img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

CSDN VIP年卡 4000万程序员的必选现在开通,立省522元
下载
img

我的函数库

会员到期时间: 剩余下载个数: 剩余C币:0 剩余积分:
VIP下载

积分不足!

资源所需积分 当前拥有积分
您可以选择
开通VIP年卡
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img
资源所需积分 当前拥有积分 当前拥有C币
5 4 45
(仅够下载10个资源)
VIP年卡
全站1200个资源免积分下载
下载
img
资源所需积分 当前拥有积分 当前拥有C币
5 0 0
VIP年卡
全站1200个资源免积分下载
C币充值开通VIP年卡
img
资源所需积分 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
VIP年卡
全站1200个资源免积分下载
下载
下载

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

若举报审核通过,可奖励20下载分

  • 举报人:
  • 被举报人:
  • 举报的资源分:
  • *类型:
  • *详细原因: