delphi - 用于打开屏幕保护程序的 Delphi 代码在 Windows 7 中不起作用

Question

我有一个 Delphi 应用程序，可以使用

hWnd := GetDesktopWindow ;
SendMessage (hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0) ;

这在 XP 下工作正常，但我发现它在（嵌入式）Windows 7 下不起作用。

有任何想法吗？

Answer 1

它适用于我（Windows 7 Home Premium，64 位）。您是否尝试将消息发送到另一个窗口，例如Handle？（另外，你确定你安装了屏幕保护程序吗？）

Answer 2

SC_SCREENSAVE 消息告诉目标窗口执行在 System.ini 文件的 [boot] 部分中指定的屏幕保护程序应用程序。由于 o/s 是嵌入式窗口，它是 Windows 的精简版，因此很可能 system.ini 文件配置为没有屏幕保护程序。检查您的 system.ini 文件。