Question

关于等待计时器我有些不明白的地方。我在网上搜索并阅读MSDN上的规格以及我在stackoverflow上找到的任何内容（例如link），但我的计时器几乎在PC暂停后立即启动。

为了关注这个问题，我在Windows 7中使用XE5（64位）编写了一个小型测试应用程序，并尝试复制此处的项目：http://www.codeproject.com/Articles/49798/Wake-the-PC-from-standby-or-hibernation

我认为问题是我抽出时间的方式，但我似乎无法找到问题。

测试应用程序看起来像这样（非常简单）：

enter image description here

我声明线程类型如下

type
   TWakeupThread    = class(TThread)
   private
     FTime:         LARGE_INTEGER;
  protected
     procedure      Execute; override;
  public
     constructor    Create(Time: LARGE_INTEGER);
  end;

...

constructor TWakeupThread.Create(Time: LARGE_INTEGER);
begin
  inherited Create(False);
  FreeOnTerminate:=True;
  FTime:=Time;
end;


procedure TWakeupThread.Execute;
var
   hTimer:     THandle;
begin
  // Create a waitable timer.
  hTimer:=CreateWaitableTimer(nil, True, 'WakeupThread');
  if (hTimer <> 0) then
  begin
     //CancelWaitableTimer(hTimer);
     if (SetWaitableTimer(hTimer, FTime.QuadPart, 0, nil, nil, True)) then
     begin
        WaitForSingleObject(hTimer, INFINITE);
     end;
     CloseHandle(hTimer);
  end;
end;

现在，当单击“设置计时器”按钮时，我以这种方式计算文件时间并创建线程。

procedure TForm1.btnSetTimerClick(Sender: TObject);
var
   iUTCTime : LARGE_INTEGER;
   SysTime  : _SystemTime;
   FTime    : _FileTime;
   hHandle  : THandle;
   dt       : TDateTime;
begin
   ReplaceDate(dt,uiDate.DateTime);
   ReplaceTime(dt,uiTime.DateTime);
   DateTimeToSystemTime(dt, SysTime);
   SystemTimeToFileTime(SysTime, FTime);
   LocalFileTimeToFileTime(FTime, FTime);
   iUTCTime.LowPart := FTime.dwLowDateTime;
   iUTCTime.HighPart := FTime.dwHighDateTime;
   TWakeupThread.Create(iUTCTime);
end;

这不起作用。无论选择的时间长短，计时器似乎在系统进入挂起模式后不到2分钟就会启动。任何关于我做错的指示都将不胜感激。

修改

找到这个有趣的命令行工具，让我们检查等待的计时器。从命令中，您可以通过键入以下内容“查看”等待计时器的状态：

powercfg -waketimers

我可以用它来确认我的计时器设置正确。我还可以使用它来确认我的计时器在PC过早唤醒时仍在运行。

使用相同的工具，您可以获得能够从休眠状态唤醒的设备列表（在我的情况下，鼠标，键盘，网络）：

powercfg -devicequery wake_armed

在所有测试的系统上，命令“powercfg -lastwake”返回以下内容，我不知道如何解密：

Wake History Count - 1
Wake History [0]
   Wake Source Count - 0

我在Windows中启用了睡眠和休眠状态，两者都会在几秒后唤醒。没有键盘/鼠标活动，我们没有设备向这些PC发送WOL（wake-on-lan）请求。

我想知道在调用SetSuspendState时是否需要做一些特别的事情;这是我的代码：

function SetSuspendState(Hibernate, ForceCritical, DisableWakeEvent: Boolean): Boolean;
//Hibernate = False : system suspends
//Hibernate = True : system hibernates
begin
  if not Assigned(_SetSuspendState) then
     @_SetSuspendState := LinkAPI('POWRPROF.dll', 'SetSuspendState');
  if Assigned(_SetSuspendState) then
     Result := _SetSuspendState(Hibernate, ForceCritical, DisableWakeEvent)
  else
     Result := False;
end;
function LinkAPI(const module, functionname: string): Pointer;
var
   hLib: HMODULE;
begin
     hLib := GetModuleHandle(PChar(module));
     if hLib =0 then
        hLib := LoadLibrary(PChar(module));
     if hLib <> 0 then
        Result := getProcAddress(hLib, PChar(functionname))
     else
        Result := nil;
end;
procedure TForm1.btnSuspendClick(Sender: TObject);
begin
     SetSuspendState(True, False, False);
end;

Answer 1

问题是不与delphi或代码有任何关系。该问题是由Windows 7 功能创建的，该功能在启用WOL时启用的不仅仅是魔术数据包。强制Windows只侦听魔术包解决了这个问题。

MS Link：http://support.microsoft.com/kb/941145

感谢所有试图提供帮助的人，尤其是David Heffernan，他提到了其他东西正在唤醒PC的可能性。

了解等待计时器

1 个答案: