获取文件名和路径函数

Delphi 获取文件名路径

2011-10-03 9:26

获取文件名和路径函数：
ExtractFileName() 从文件名中抽取不含路径的文件名
ExtractFilePath() 从文件名中抽取路径名
ExtractFileDir() 从文件名中抽取目录名
ExtractFileExt从文件名中抽取扩展命

例子：
uses ShellApi   //需要在uses区域加入ShellApi;
....
If OpenDialog1.Execute Then 
  Begin
    lfilename:= OpenDialog1.FileName;
    FileExt:=Extractfileext(lfilename);
    FileName:=ExtractFileName(lfilename);
    StrFile:=Copy(FileName,1,Lenght(FileExt)-1)
  end;