functionMoveFile(constsName,dName:string):Boolean;{*移动文件、目录，参数为源、目标名}procedureFileProperties(constFName:string);{*打开文件属性窗口}functionOpenDialog(varFileName:string;Title:string;Filter:string;Ext:string):Boolean;{*打开文件框}functionFormatPath(APath:string;Width:Integer):string;{*缩短显示不下的长路径名}function