Delphi XE的firemonkey获取当前文件所在路径的方法

在之前，我们知道有三种方法：

　ExtractFilePath(ParamStr(0))

　ExtractFilePath(Application.ExeName)

　GetCurrentDir + '\'

在firemonkey中，Windows模式下第一种、第三种还有效：

　ExtractFilePath(ParamStr(0))

　GetCurrentDir + '\'

iOS模式下，是用：GetHomePath来获得APP的安装路径。