ExpandFileName(Application.ExeName);//返回文件的全路径(含驱动器、路径) D:\delphi程序\20170427\Win32\Debug\MyTestProject.exe ExtractFileExt(Application.ExeName); //从文件名中抽取扩展名 .exe ExtractFileName(Application.ExeName); //从文件名中抽取不含路径的文件名 MyTestProject.exe ExtractFilePath(Application.ExeName);// 从文件名中抽取路径名 D:\delphi程序\20170427\Win32\Debug\ ExtractFileDir(Application.ExeName);// 从文件名中抽取目录名 D:\delphi程序\20170427\Win32\Debug ExtractFileDrive(Application.ExeName);// 从文件名中抽取驱动器名 D: ChangeFileExt(ExtractFilePath(Application.ExeName)+'aaa.txt','.bbb');// 改变文件的扩展名 D:\delphi程序\20170427\Win32\Debug\aaa.bbb ExpandUNCFileName(Application.ExeName);// 返回含有网络驱动器的文件全路径 D:\delphi程序\20170427\Win32\Debug\MyTestProject.exe ExtractRelativePath('d:\abc\123','d:\abc');// 从文件名中抽取相对路径信息 ExtractShortPathName(Application.ExeName);// 把文件名转化为DOS的8·3格式 D:\delphi程序\20170427\Win32\Debug\MyTestProject.exe MatchesMask('http://www.132435.com','*.132435.com'));// 检查文件是否与指定的文件名格式匹配 true
|
请发表评论