如何在 Delphi 应用程序中从 DLL 中检索自身文件名？

从 DLL 中检索自身文件名：Delphi 语言的解决方案

在 Windows 系统中，我们可以通过使用 "LoadLibrary" 函数将 DLL 加载到进程中。然而，对于加载到 DLL 中的函数来说，如何找出其自己的路径和文件名却是一个难题。

本文将深入探讨这个问题，并提供一种使用 Delphi 语言的解决方案。虽然本文重点关注 Delphi，但其原理也适用于其他编程语言。

问题陈述

当一个 DLL 被加载到进程空间时，它本身并不知道自己的路径和文件名。这是因为加载 DLL 时不传递文件名信息。

这个问题在某些情况下会很棘手，例如当 DLL 需要访问其自身文件或资源时。对于一个应用程序来说，了解自己被加载到的位置也是有用的，以便它可以加载其他资源或执行其他与路径相关的工作。

解决方法

虽然 Windows API 中没有直接的方法可以从 DLL 中检索其自身的文件名，但我们可以利用以下技巧来解决这个问题：

使用 Delphi 的 "HInstance" 属性

在 Delphi 中，每个加载的模块都与一个 "HInstance" 值相关联，该值是模块句柄。我们可以使用这个值来获取模块的信息，包括其文件路径。

以下 Delphi 代码示例演示了如何使用 "HInstance" 属性检索 DLL 的文件名：

function GetDllFileName: string;
begin
  Result := GetModuleFileName(HInstance);
end;

在 Delphi 中，"HInstance" 属性可以在 "Unit" 部分中访问，如下所示：

unit Unit1;

interface

uses
  Winapi.Windows;

procedure TForm1.FormCreate(Sender: TObject);

implementation

uses
  System.SysUtils;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(GetDllFileName);
end;

end.

优点和缺点

优点：

• 简单易行： 使用 "HInstance" 属性是一种简单易行的方法，适用于 Delphi 语言。
• 高效： 该方法不需要加载或解析任何外部文件，因此非常高效。

缺点：

• 仅适用于 Delphi： 该方法仅适用于 Delphi 语言，对其他语言无效。
• 局限性： 如果 DLL 被加载到另一个进程空间中，该方法不起作用。

结论

使用 Delphi 的 "HInstance" 属性，我们可以检索加载到当前进程空间的 DLL 的文件名。虽然这种方法很简单高效，但它仅适用于 Delphi 语言，并且如果 DLL 被加载到另一个进程空间中则不起作用。

对于需要在不同语言或不同进程空间中工作的更通用的解决方案，可以考虑使用 Windows API 中的其他技术，如 "EnumProcessModules" 或 "NtQueryInformationProcess"。

常见问题解答

问：为什么从 DLL 中检索自身文件名很重要？

答：对于需要访问自身文件或资源的 DLL 来说，检索自身文件名很重要。它还可以帮助应用程序了解自己的加载位置，以便进行与路径相关的工作。

问：除了 Delphi 之外，还有其他方法可以从 DLL 中检索自身文件名吗？

答：是的，对于其他语言或更通用的解决方案，可以使用 Windows API 中的其他技术，如 "EnumProcessModules" 或 "NtQueryInformationProcess"。

问：为什么 Delphi 的 "HInstance" 属性只能用于加载到当前进程空间的 DLL？

答：这是因为 "HInstance" 属性是一个指向 DLL 模块句柄的指针，而模块句柄仅存在于加载 DLL 的进程中。

问：使用 Delphi 的 "HInstance" 属性检索 DLL 文件名的替代方法是什么？

答：一种替代方法是使用 "GetModuleFileName" 函数，该函数可以获取与特定模块（exe 或 DLL）关联的文件路径。但是，该方法只能用于加载到当前进程空间的模块。

问：使用 Windows API 恢复自身文件名的技术中，最通用的是哪种？

答："EnumProcessModules" 和 "NtQueryInformationProcess" 等技术是更通用，可以在不同语言和进程空间中使用，但它们的实现可能更复杂。