На главную

Запустить Screen Saver

Запустить Screen Saver

ОГЛАВЛЕНИЕ HOME MAIL

При нажатии на кнопку будет запускаться ScreenSaver (если он не отключен).

procedure TForm1.Button1Click(Sender: TObject);
  SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
end;

Немножко рекламы:

Тюнеры Apple TV.