根据外部函数是否存在来声明它们

Question

我想从 kernel32.dll 库中声明一个外部函数，其名称为 GetTickCount64。 据我所知，它仅在 Vista 和更高版本的 Windows 版本中定义。 这意味着当我按如下方式定义函数时：

function GetTickCount64: int64; external kernel32 name 'GetTickCount64';

由于应用程序启动时生成错误，我肯定无法在以前版本的 Windows 上运行我的应用程序。

这个问题有解决方法吗？ 假设我不想在该函数不存在时包含该函数，然后在我的代码中使用一些替代函数。 怎么做？ 是否有任何编译器指令有帮助？ 我想这个定义必须被这样的指令包围，而且我还必须在使用 GetTickCount64 函数的地方使用一些指令，对吧？

我们将不胜感激您的帮助。 提前致谢。

马吕斯。

Answer 1

声明该类型的函数指针，然后在运行时使用 LoadLibrary 或 GetModuleHandle 和 GetProcAddress。 您可以在 Delphi 源代码中找到该技术的几个示例； 查看TlHelp32.pas，它加载ToolHelp 库< /a>，这在旧版本的 Windows NT 上不可用。

interface

function GetTickCount64: Int64;

implementation

uses Windows, SysUtils;

type
   // Don't forget stdcall for API functions.
  TGetTickCount64 = function: Int64; stdcall;

var
  _GetTickCount64: TGetTickCount64;

// Load the Vista function if available, and call it.
// Raise EOSError if the function isn't available.
function GetTickCount64: Int64;
var
  kernel32: HModule;
begin
  if not Assigned(_GetTickCount64) then begin
    // Kernel32 is always loaded already, so use GetModuleHandle
    // instead of LoadLibrary
    kernel32 := GetModuleHandle('kernel32');
    if kernel32 = 0 then
      RaiseLastOSError;
    @_GetTickCount := GetProcAddress(kernel32, 'GetTickCount64');
    if not Assigned(_GetTickCount64) then
      RaiseLastOSError;
  end;
  Result := _GetTickCount64;
end;