Как программно запустить "хранитель экрана"(screensaver)?

Автор: OlegGG
Исходная ссылка: - - -

SendMessage(Application->Handle,WM_SYSCOMMAND,SC_SCREENSAVE,0);