程序开始只创建了DataMoudle，在DataMoudle中怎么获取本应用程序路径

程序开始只创建了DataMoudle，在DataMoudle中如何获取本应用程序路径？
在DataMoudle中application不能识别。

------解决方案--------------------
var
FileName: String;
iLen: LongWord;
begin
iLen := MAX_PATH;
SetLength(FileName,iLen);
iLen := GetModuleFileName(0,PChar(FileName),iLen);
SetLength(FileName,iLen);
ShowMessage(FileName);
end;
------解决方案--------------------
uses Forms;
ShowMessage(ExtractFilePath(Application.ExeName));
------解决方案--------------------
1.GetModuleFileName
2.Uses Forms
Application.ExeName