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

Question

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

将计算机置于屏幕上

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

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

有什么想法吗？

Answer 1

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

Answer 2

SC_SCREENSAVE消息告诉目标窗口执行System.ini文件的[boot]部分中指定的屏幕保护程序应用程序。由于o / s是嵌入式窗口，这是Windows的简化版本，因此很可能安装system.ini文件而不进行屏幕保护。检查system.ini文件。