timeSetEvent

timeSetEvent 是一个 Windows API 函数，用于设置一个或多个定时器事件。该函数可以设置多个定时器事件，每个事件都有一个唯一的标识符，以便在需要时可以取消该事件。timeSetEvent 函数的参数包括定时器事件的时间间隔、定时器事件的回调函数、回调函数的参数和定时器事件的类型等。在回调函数中，可以编写需要定期执行的代码。

需要注意的是，timeSetEvent 函数是一个低精度的定时器，其精度依赖于系统的调度情况和硬件性能等因素。如果需要更高精度的定时器，可以考虑使用高精度计时器（例如 QueryPerformanceCounter 函数）。另外，timeSetEvent 函数在 Windows 8 以后的操作系统中已被标记为过时，建议使用更先进的定时器 API，如 CreateTimerQueueTimer 函数等。

相关问题

timesetevent回调函数用法

`timeSetEvent` 是一个Windows API函数，用于设置定时器事件。它的原型如下：

MMRESULT timeSetEvent(
    UINT uDelay,
    UINT uResolution,
    LPTIMECALLBACK lpTimeProc,
    DWORD_PTR dwUser,
    UINT fuEvent
);

其中，`lpTimeProc` 参数是一个指向回调函数的指针，用于处理定时器事件。回调函数的原型如下：

void CALLBACK TimeProc(
    UINT uTimerID,
    UINT uMsg,
    DWORD_PTR dwUser,
    DWORD_PTR dw1,
    DWORD_PTR dw2
);

在回调函数中，`uTimerID` 参数是定时器的标识符，`uMsg` 参数是一个预留参数，通常为 `TIME_TICK`，`dwUser` 参数是 `timeSetEvent` 函数调用时传入的 `dwUser` 参数，`dw1` 和 `dw2` 参数是一些保留参数，通常为0。

下面是一个简单的例子，演示如何使用 `timeSetEvent` 函数和回调函数处理定时器事件：

#include <Windows.h>
#include <iostream>

void CALLBACK TimeProc(UINT uTimerID, UINT uMsg, DWORD_PTR dwUser, DWORD_PTR dw1, DWORD_PTR dw2)
{
    std::cout << "Timer triggered! Timer ID: " << uTimerID << std::endl;
}

int main()
{
    /* 设置定时器事件，每隔 1 秒触发一次 */
    MMRESULT res = timeSetEvent(1000, 0, TimeProc, 0, TIME_PERIODIC);

    if (res == 0)
    {
        std::cerr << "Failed to set timer event" << std::endl;
        return 1;
    }

    /* 等待定时器触发 */
    std::cout << "Waiting for timer..." << std::endl;
    system("pause");

    /* 取消定时器事件 */
    res = timeKillEvent(res);

    if (res == 0)
    {
        std::cerr << "Failed to kill timer event" << std::endl;
        return 1;
    }

    std::cout << "Timer event cancelled" << std::endl;
    return 0;
}

这个例子中，我们设置了一个每隔1秒触发一次的定时器事件，并在回调函数 `TimeProc` 中输出一条消息。程序运行后，会输出 "Waiting for timer..."，等待定时器事件的触发。当定时器事件被触发时，会输出 "Timer triggered! Timer ID: xxx"，其中 xxx 是定时器的标识符。

当我们按下任意键后，程序会取消定时器事件，并输出 "Timer event cancelled"。

delphi 64位 timeSetEvent接口替代

在Delphi 64位中，timeSetEvent函数已经被弃用，可以使用新的API来替代它。新的API包括timeSetEventEx、CreateTimerQueue、CreateTimerQueueTimer等。这些API提供了更加灵活和可靠的定时器功能，可以满足更多的需求。

例如，可以使用CreateTimerQueueTimer函数来创建一个定时器，它可以在指定的时间间隔内执行回调函数：

unit TimerQueue;

interface

uses
  Winapi.Windows, System.SysUtils;

type
  TTimerQueue = class
  private
    FTimerQueue: THandle;
    FTimer: THandle;
    FInterval: Cardinal;
    FOnTimer: TProc;
    procedure TimerCallback(lpParameter: Pointer; TimerOrWaitFired: Boolean); stdcall;
  public
    constructor Create(Interval: Cardinal; OnTimer: TProc);
    destructor Destroy; override;
  end;

implementation

{ TTimerQueue }

constructor TTimerQueue.Create(Interval: Cardinal; OnTimer: TProc);
begin
  inherited Create;
  FInterval := Interval;
  FOnTimer := OnTimer;
  FTimerQueue := CreateTimerQueue;
  if not CreateTimerQueueTimer(FTimer, FTimerQueue, @TimerCallback, nil, Interval, Interval, WT_EXECUTEDEFAULT) then
    RaiseLastOSError;
end;

destructor TTimerQueue.Destroy;
begin
  DeleteTimerQueueTimer(FTimerQueue, FTimer, 0);
  DeleteTimerQueueEx(FTimerQueue, 0);
  inherited;
end;

procedure TTimerQueue.TimerCallback(lpParameter: Pointer; TimerOrWaitFired: Boolean); stdcall;
begin
  FOnTimer();
end;

end.

在使用时，可以通过创建TTimerQueue对象来启动定时器：

procedure TForm1.FormCreate(Sender: TObject);
begin
  TTimerQueue.Create(1000, procedure
    begin
      Label1.Caption := FormatDateTime('hh:nn:ss', Now);
    end);
end;