Dll的简单问题(100分)

在一个Dll中，写一个函数，该函数的功能是获取该Dll的路径，以及文件名！

这功能我经常用，用这函数GetModuleFileName（），支持Win/Linux系统，参考以下代码：
uses
{$IFDEF MSWINDOWS}
Windows,
{$ENDIF}
SysUtils, Classes.....
function ProgramPath: string;
begin
SetLength(Result, 256);
SetLength(Result, GetModuleFileName(HInstance, PChar(Result), 256));
Result:= ExtractFilePath(Result);
end;

接受答案了.