Код Delphi для включения заставки не работает в Windows 7
У меня есть приложение Delphi, которое помещает компьютер в экран, используя
hWnd := GetDesktopWindow ;
SendMessage (hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0) ;
Это нормально работает под XP, но я считаю, что это не работает под (встроенным) Windows 7.
Есть идеи?
2 ответа
Решение
Это работает для меня (Windows 7 Home Premium, 64-разрядная версия). Вы пытались отправить сообщение в другое окно, например, Handle? (Кроме того, вы уверены, что у вас установлена заставка?)
Сообщение SC_SCREENSAVE указывает целевому окну запустить приложение-заставку, указанное в разделе [boot] файла System.ini. Так как o/s - это Embedded Windows, который является урезанной версией Windows, вполне вероятно, что файл system.ini настроен без экранной заставки. Проверьте ваш файл system.ini.