delphi11 64位使用 timeSetEvent

在 Delphi 11 64位中使用 timeSetEvent 函数可能会遇到一些问题，因为该函数是32位 Windows API 的一部分，而 Delphi 11 64位是基于 64位 Windows API 的。

为了在 Delphi 11 64位中使用 timeSetEvent 函数，你需要使用一个代替方案。一个可用的代替方案是使用 CreateTimerQueueTimer 函数。这个函数可以创建一个定时器，并在指定的时间间隔内重复调用一个回调函数。

以下是一个使用 CreateTimerQueueTimer 函数的示例代码：

var
  TimerQueue: THandle;
  TimerHandle: THandle;

procedure TimerCallback(lpParameter: Pointer; TimerOrWaitFired: Boolean);
begin
  // 处理定时器触发后的事件
end;

// 创建定时器
procedure CreateTimer;
begin
  TimerQueue := CreateTimerQueue;
  if TimerQueue <> 0 then
  begin
    // 创建定时器
    if not CreateTimerQueueTimer(TimerHandle, TimerQueue, @TimerCallback, nil, 1000, 1000, 0) then
      RaiseLastOSError;
  end
  else
    RaiseLastOSError;
end;

// 销毁定时器
procedure DestroyTimer;
begin
  DeleteTimerQueueTimer(TimerQueue, TimerHandle, INVALID_HANDLE_VALUE);
  DeleteTimerQueue(TimerQueue);
end;

在上面的代码中，我们首先使用 CreateTimerQueue 函数创建一个定时器队列。然后使用 CreateTimerQueueTimer 函数创建一个重复触发的定时器，并指定回调函数 TimerCallback。在回调函数中，我们可以处理定时器触发后的事件。最后，在程序退出时，我们调用 DeleteTimerQueueTimer 和 DeleteTimerQueue 函数销毁定时器。