delphi - 获取 Delphi 中 OpenSSL DLL 的版本和/或位置？

Question

出于故障排除的目的，我的应用程序是否有一种可以在运行时检查的实用方法:

1. openssl dll(ssleay32.dll 和 libeay32.dll)是否确实存在并且能够被我的应用成功加载？
2. openssl dll 实际从什么路径加载(这样我就可以验证它是否从应用程序目录中的副本加载，或者是否从系统路径的某处获取一些杂散副本)
3. 我的应用程序(或 Indy)使用的是哪个版本的 openssl？ (如果我知道确切的路径，大多数版本的 openssl dll 都包含我可以通过查看 Windows 文件属性检查的版本信息)

Answer 1

是的。按照您询问的顺序:

1. 使用LoadLibrary对于每个 DLL 并检查返回值。
2. 如果 #1 成功，请使用 GetModuleFileName检索已加载的 DLL 的完整路径名..
3. 如果 #2 成功，请使用 GetFileVersionInfo查看 DLL 是否有可用的文件版本信息。如果是，请使用VerQueryValue读取版本信息(与通过查看 Windows 文件属性看到的信息相同)。

它们都可以从Windows 单元获得。 Delphi 中所有这三个示例都可以在 StackOverflow 中找到。如果您找不到它们，请在此处发布单独的问题(见下文)，寻求使用它们的帮助。

(这里的帖子应该包含一个问题，这样就可以选择一个答案作为答案。如果您在同一个帖子中包含多个问题，那么几个人可以分别回答其中一个问题；在这种情况下，如何处理您选择接受哪一个是正确的？)