爱华网ExtractFileDrive：返回完整文件名中的驱动器，如"C:"
ExtractFilePath：返回完整文件名中的路径，最后带“/”，如"C:test"
ExtractFileDir：返回完整文件名中的路径，最后不带“/”,如"C:test"
ExtractFileName:返回完整文件名中的文件名称(带扩展名)，如"mytest.doc"
ExtractFileExt返回完整文件名中的文件扩展名（带.），如".doc"
function ExtractFilePath(constFileName: string): string;
function ExtractFileName(constFileName: string): string;
返回指定文件的文件名及扩展名
var
s:string;
begin
s:=ExtractFileName('D:ProgramFilesBorlandDelphi7ProjectsUnit1.dcu');
showmessage(s);\显示:Unit1.dcu
end;
var
s:string;
begin
s:=ExtractFilepath('D:ProgramFilesBorlandDelphi7ProjectsUnit1.dcu');
showmessage(s);\显示:'D:ProgramFilesBorlandDelphi7Projects
end;
ExtractFilePath(Application.ExeName)//获取应程序文件的路径
