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文件[引导]部分中指定的屏幕保护程序应用程序。由于O/s是嵌入式窗口（这是窗口的切割版本），因此很可能将System.Ini文件配置为无屏幕保护程序。检查您的System.ini文件。