获取文件名和路径函数

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;