ExtractFileDir，ExtractFilePath

ExtractFilePath与ExtractFileDir是有区别的，前者从绝对文件名中获取路径名，后者从绝对文件名中获取目录名，表现在ExtractFilePath最后总有"\"，而ExtractFileDir只是在路径为根目录时最后才是"\"。见下例： showmessage(ExtractFileDir('c:\a\aa\aaa.exe')); 返回 c:\a\aa     showmessage(ExtractFilePath('c:\a\aa\aaa.exe'));   返回 c:\a\aa\ showmessage(ExtractFileDir('c:\aaa.exe'));           返回 c:\ showmessage(ExtractFilePath('c:\aaa.exe'));        返回 c:\ 例子：相对路径的设置 var AppPath:string; AppPath:=ExtractFileDir(Application.ExeName);//得到你的程序.EXE位置; 例如：找c:\MY程序\123\1.jpg; image2.picture.loadfromfile(AppPath+'/123/'+'1.jpg');//相对路径实例；

转载于:https://www.cnblogs.com/zhujiecode/archive/2012/07/10/2584212.html