Delphi 从文件名中得到路径名，可用下面的两个函数，这两个函数有一点点微小的差别：
ExtractFilePath(FileName:String)
该函数返回路径名，其结尾字符总是“/”
ExtractFileDir(FileName:String)
该函数同样返回路径名，但不包括结尾的字符“/”，除非返回的路径是根目录。
样例代码：
ShowMessage(ExtractFileDir(Application.Exename));
// 如: c:/temp
ShowMessage(ExtractFilePath(Application.Exename)); // 如:
c:/temp/
用法：
Paths := extractfiledir(application.ExeName)+'/Skin/Pictrues/Skin_Login.jpg';
img_Main.Picture.LoadFromFile(Paths);
