Delphi中的WaitForSingleObject怎么用

在Delphi中，可以使用WaitForSingleObject函数来等待一个对象的信号状态变为可用。该函数的语法如下：

function WaitForSingleObject(hHandle: THandle; dwMilliseconds: DWORD): DWORD; stdcall;

其中，hHandle参数是要等待的对象的句柄，dwMilliseconds参数是等待的时间长度（单位为毫秒）。
下面是一个使用WaitForSingleObject函数的示例：

var
  hEvent: THandle;
begin
  // 创建一个事件对象
  hEvent := CreateEvent(nil, False, False, nil);
  if hEvent <> 0 then
  begin
    // 等待事件对象的信号状态变为可用
    if WaitForSingleObject(hEvent, INFINITE) = WAIT_OBJECT_0 then
    begin
      // 事件对象的信号状态为可用，执行相应的操作
      ShowMessage('Event signaled');
    end;
    // 关闭事件对象
    CloseHandle(hEvent);
  end;
end;

在上述示例中，首先使用CreateEvent函数创建了一个事件对象，并将其句柄保存在hEvent变量中。然后，调用WaitForSingleObject函数等待事件对象的信号状态变为可用，在等待期间，程序会一直阻塞。如果等待成功，即WaitForSingleObject函数返回WAIT_OBJECT_0，表明事件对象的信号状态已经可用，此时可以执行相应的操作。最后，使用CloseHandle函数关闭事件对象。