Delphi code to enable screen saver does not work in Windows 7

Question

I have a Delphi application that puts a computer into a screensaver using

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

This works fine under XP, but I believe that it does not work under (built-in) Windows 7.

Any ideas?

Answer 1

This works for me (Windows 7 Home Premium, 64-bit). Did you try to send a message to another window, for example Handle? (Also, are you sure you have a screensaver installed?)

Answer 2

SC_SCREENSAVE , [boot] System.ini. o/s - , , , , system.ini . system.ini.