用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