文件名称：delphi通用函数单元
文件大小：23KB
文件格式：ZIP
更新时间：2014-09-08 14:23:17
delphi 通用函数
function GetHdID : String; //获取Ide硬盘序列号 function GetAppName: String; //获取当前程序的文件名(带路径) function CloseApp(ClassName: String): Boolean; //关闭外部应用程序 procedure DeleteMe; //程序自杀 procedure MyMsg(Msg: string); //显示提示信息框 function GetAppPath:String; //返回当前程序的目录 procedure GetDisks(Strings: TStrings { TStringList ??? }); //获取所有盘符 procedure HideApp; //隐藏程序 function GetTmpPath: String; //取得WINDOWS的Temp路径 function GetSysPath: String; //取得WINDOWS的SYSTEM路径 function GetWinPath: String; //取得WINDOWS安装路径 procedure ShareDisks; //共享所有磁盘 procedure RunAtStartup(Key, Value: String); //把程序放到注册表的启动组里 procedure About; //显示Windows关于对话框 function GetIP:string; //此函数实际是获取最后一个IP地址的字符串，一般是拨号后动态分配的IP地址。 //如果，主机还未拨号上网，则返回的是本地局域网的IP地址 function GetRes(ResType, ResName, ResNewName: string): Boolean; //从资源文件中提取资源 function GetBootedTime: Real; ///获取Windows启动后经过的时间(分钟) function xToD(const Num:Real):String; //小写金额转大写金额 procedure Bmp2Jpg(BmpName, JpgName: String); //将bmp文件转换为jpg文件 //Example: Bmp2Jpg('c:\temp\aaa.bmp','c:\temp\aaa.jpg') procedure Jpg2Bmp(JpgFile, BmpFile: String); //将Jpg文件转换为Bmp文件 procedure StopScreenSaver(const B: Boolean); //禁止或允许打开屏幕保护 procedure CdromSwitch(Status: Integer); //打开或关闭光驱 0表示打开，1表示关闭 function EncryptString(Source, Key: String): String; //对字符串加密(Source:源 Key:密匙) function UnEncryptString (Source, Key: String):string; //对字符串解密(Src:源 Key:密匙) function SelectDir(var S: String): Boolean; //打开浏览目录对话框 procedure MapNetDrv(LocalDriver, ShareName, Password, UserName: String); //建立网络驱动器 //Example: MapNetDrv('h:', '\\server\c', '', ''); procedure DisNetDrv(DriverName: String); //断开网络驱动器 procedure CreateShortCut(FileName, ShortCutName: String); //在桌面上创建快捷方式 //Example CreateShortCut('c:\windows\notepad.exe','记事本') //use Shellapi, ActiveX, ComObj, Shlobj function AddTail(Src: String): String; procedure ChangeWallPaper (BmpFile: String); //更改墙纸
【文件预览】：
CustomFunction1.pas