用OpenDialog.FileName做参数
ExpandFileName() 返回文件的全路径(含驱动器、路径)
ExtractFileExt() 从文件名中抽取扩展名
ExtractFileName() 从文件名中抽取不含路径的文件名
ExtractFilePath() 从文件名中抽取路径名
ExtractFileDir() 从文件名中抽取目录名
ExtractFileDrive() 从文件名中抽取驱动器名
ExpandUNCFileName() 返回含有网络驱动器的文件全路径
ExtractRelativePath() 从文件名中抽取相对路径信息
ChangeFileExt('FileName','') ; //返回不含扩展名的文件名
FileName=‘C:\Users\GongJun\Desktop\KAB03-8H10D.ezd’
ExpandFileName----C:\Users\GongJun\Desktop\KAB03-8H10D.ezd
ExtractFileExt----.ezd
ExtractFileName----KAB03-8H10D.ezd
ExtractFilePath----C:\Users\GongJun\Desktop\
ExtractFileDir----C:\Users\GongJun\Desktop
ExtractFileDrive----C:
ExpandUNCFileName----C:\Users\GongJun\Desktop\KAB03-8H10D.ezd