delphi之文件路径篇

来源:转载

edit1.Text:=ParamStr(0);//自己全路径c:/555/qq.exe,可用于控制台
edit1.text:=ExpandFileName(ParamStr(0)); //获取本程序的完整路径 c:/qq/2.exe
edit2.text:=ExtractFileDir(ParamStr(0)); //获取本程序的路径 c:/qq
edit3.text:=application.Exename; //获取本程序的完整路径 c:/qq/2.exe,和第1个一样
edit4.text:=ExtractFilename(Application.Exename); //获得文件名2.exe

===============================================================

ShowMessage(ExtractFileDir(Application.Exename)); // 如: c:\temp 
ShowMessage(ExtractFilePath(Application.Exename)); // 如: c:\temp\ 

===============================================================

ExtractRelativePath : 返回相对路径,定义如下:

function ExtractRelativePath(const BaseName, DestName: string): string;
使用测试下如:
SysUtils.ExtractRelativePath('C:/test','C:/Test/TestRelativePath'):返回TestRelativePath
SysUtils.ExtractRelativePath('C:/Test/TestRelativePath','C:/test'):返回'../TestRelativePath'
SysUtils.ExtractRelativePath('C:/Test/TestRelativePath/','C:/test'):返回'../../TestRelativePath'
ExtractShortPathName :返回短文件名,即8+3,文件名长八位,扩展名为3号,为保持DOS系统兼容而存在。

================================================================

ExpandFileName() 返回文件的全路径(含驱动器、路径) 
ExtractFileExt() 从文件名中抽取扩展名 
ExtractFileName() 从文件名中抽取不含路径的文件名 
ExtractFilePath() 从文件名中抽取路径名 
ExtractFileDir() 从文件名中抽取目录名 
ExtractFileDrive() 从文件名中抽取驱动器名 
ChangeFileExt() 改变文件的扩展名 
ExpandUNCFileName() 返回含有网络驱动器的文件全路径 
ExtractRelativePath() 从文件名中抽取相对路径信息 
ExtractShortPathName() 把文件名转化为DOS的8·3格式 
MatchesMask() 检查文件是否与指定的文件名格式匹配

================================================================= 

Example code : Extract all of the parts of a full file name

var
  fullFileName : string;

begin
  // Set up a full file name with drive and path
  fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';

  // Show the component parts of this full name
  ShowMessage('Drive = '+ExtractFileDrive (fullFileName));
  ShowMessage('Dir   = '+ExtractFileDir   (fullFileName));
  ShowMessage('Path  = '+ExtractFilePath  (fullFileName));
  ShowMessage('Name  = '+ExtractFileName  (fullFileName));
  ShowMessage('Ext   = '+ExtractFileExt   (fullFileName));
end;

Show full unit code

   Drive = C:
   Dir   = C:\Program Files\Borland\Delphi7\Projects
   Path  = C:\Program Files\Borland\Delphi7\Projects\
   Name  = Unit1.dcu
   Ext   = .dcu


分享给朋友:
您可能感兴趣的文章:
随机阅读: