取得DLL所在的运行目录

以下代码可以取到当前运行的DLL，EXE文件所在的目录

var
  ModuleName : String;
begin
    SetLength(ModuleName, 200);
    GetModuleFileName(HInstance,PChar (ModuleName), Length(ModuleName));
    ModuleName := PChar(ModuleName);
end;