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');//相对路径实例；