【文件属性】:
文件名称: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
网友评论
- 可以使用 不过我找到了更简单的