Fortran部署时如何设置外部DLL搜索路径（排除PATH策略）

当然有办法解决这个问题！我之前部署Fortran程序时也碰到过类似需求——不想改动系统PATH，又要让主程序找到同级子目录里的DLL，下面给你几个实用的方案：

方案1：利用Windows清单文件（Manifest）指定搜索路径 #

这是最简洁的无代码修改方案，通过给主程序嵌入清单，告诉Windows加载器去指定的子目录查找依赖DLL。

步骤： #

1. 创建一个名为Main.exe.manifest的XML文件，内容如下：

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity version="1.0.0.0" name="Main.exe"/>
  <!-- 指定要搜索的子目录，这里是同级的External目录 -->
  <probing privatePath="External"/>
</assembly>

2. 编译Fortran主程序时，把这个清单嵌入到可执行文件中。以Intel Fortran为例，编译命令添加链接选项：

ifort main.f90 /link /MANIFEST:EMBED /MANIFESTINPUT:Main.exe.manifest

这样Windows加载器启动Main.exe时，会自动去External子目录里查找Depend.dll，完全不需要依赖PATH。

方案2：在程序启动时调用Windows API设置DLL搜索路径 #

如果需要动态调整DLL路径（比如根据运行环境切换目录），可以在Fortran代码中调用Windows的AddDllDirectory API，在加载DLL前添加自定义搜索路径。

示例代码： #

program main
    use, intrinsic :: iso_c_binding
    implicit none

    ! 声明Windows API函数（宽字符版本，适配Unicode路径）
    interface
        function AddDllDirectory(path) result(handle) bind(C, name='AddDllDirectory')
            use, intrinsic :: iso_c_binding
            type(c_ptr) :: handle
            character(kind=c_wchar_t), intent(in) :: path(*)
        end function AddDllDirectory
    end interface

    type(c_ptr) :: dir_handle

    ! 在程序最开始添加External目录到DLL搜索路径
    ! 注意要加上C风格的空终止符
    dir_handle = AddDllDirectory('External'//c_null_char)

    ! 后续调用依赖Depend.dll的代码
    call your_subroutine_that_uses_depend_dll()

end program main

编译时需要链接kernel32.lib（Windows系统库），Intel Fortran的编译命令可以加：

ifort main.f90 /link kernel32.lib

这个方法的优势是可以在运行时灵活修改搜索路径，比如从配置文件读取目录路径后再设置。

方案3：延迟加载DLL并配合钩子函数（进阶） #

如果你的DLL是延迟加载的（即程序启动时不立即加载，用到时才加载），可以通过延迟加载钩子函数自定义DLL的查找逻辑。

以Intel Fortran为例，编译时添加延迟加载选项：

ifort main.f90 /link /DELAYLOAD:Depend.dll

然后实现一个钩子函数，在钩子中指定去External目录查找Depend.dll。这个方案适合需要复杂路径逻辑的场景，但实现起来相对繁琐，一般前两个方案足够覆盖大部分需求。

内容的提问来源于stack exchange，提问作者Blane John