如何使Win10 PC进入待机模式？

Question

这段代码(在Delphi 7下编译)在XP和Win7下运行得很好：

var
  _SetSuspendState: function (Hibernate, ForceCritical, DisableWakeEvent: BOOL): BOOL stdcall;
  // Hibernate: SetSuspendState(True , False, False);
  // Standby  : SetSuspendState(False, False, False);
  function SetSuspendState(Hibernate, ForceCritical, DisableWakeEvent: Boolean): Boolean;
  function LinkAPI(const module, functionname: string): Pointer;
...

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;

function SetSuspendState(Hibernate, ForceCritical, DisableWakeEvent: Boolean): Boolean;
begin
  if not Assigned(_SetSuspendState) then
    @_SetSuspendState := LinkAPI('POWRPROF.dll', 'SetSuspendState');
  if Assigned(_SetSuspendState) then
    Result := _SetSuspendState(Hibernate, ForceCritical, DisableWakeEvent)
  else
    Result := False;
end;

但是如何使它在Windows 10下工作呢？

如果我在Win10 TabletPC上测试它(通过调用：SetSuspendState(False, False, False); )，设备将完全关闭。

Update2:

还试图发送一个虚拟的“睡眠”按钮：

const
  VK_SLEEP = $5F;
begin
  keybd_event(VK_SLEEP, 0, 0, 0);
  Application.ProcessMessages;
  keybd_event(VK_SLEEP, 0, KEYEVENTF_KEYUP, 0);
  Application.ProcessMessages;

但是应用程序的OnKeyDown事件无法捕获它，就像它从未被发送过一样。

Update3:

在过去几天对这个问题进行了彻底的调查之后，我意识到以下几点：

1. 我在这里编写的第一段代码:也在Win10！下工作，但只在一些机器上工作。:-(
2. 在一台(AMD)台式电脑上，它工作得非常好。它安装了一个旧的(1709年) Win10，所以我进行了更新，看看它是否与Win10构建相关，但代码仍然有效。还测试了用户/管理员权限:没有差别！一直起作用。
3. 测试了4种不同的Intel-Atom平板电脑:1台无所事事，2台关机，1台休眠。
4. 在平板电脑上，即使是一个简单的".BAT“文件也无法将设备放入待机状态！
5. 测试了所有版本的.BAT +脚本-文件(“-h off”等)什么都帮不上忙。

概述：

因此，我的第一段代码基本上受到电源配置以及Win10驱动程序和操作系统问题的影响。

这就是为什么我认为唯一的解决方案是通过简单的模拟“键盘-睡眠-按键”(就像我在‘Update2’中尝试过的那样)来绕过整个问题。

Answer 1

在这一专题上得出了同样的结论：

programmatically-enter-connected-standby-in-c-sharp

解决方案是发送监视器关闭信号：

SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2);