Как запустить текущий ScreenSaver

Delphi , Графика и Игры , ScreenSaver и ScreenMate

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0); 

Here's the translation into Russian:

Немного юмора в коде! Чтобы запустить текущий экран-сейвер с помощью C#, вы можете использовать класс System.Windows.Forms.Application и отправить сообщение WM_СOMMAND с значением SC_SCREENSAVE.

Вот соответствующий код:

using System;
using System.Windows.Forms;

class RunScreenSaver
{
    [STAThread]
    static void Main()
    {
        // Получите handle текущего окна
        IntPtr hWnd = Application.OpenForms[0].Handle;

        // Отправьте сообщение WM_СOMMAND с значением SC_SCREENSAVE
        SendMessage(hWnd, 0x0112, 0xf140, 0);

        Console.WriteLine("Экран-сейвер запущен!");
    }

    [DllImport("user32.dll")]
    static extern IntPtr SendMessage(IntPtr hWnd, int Msg, int wParam, int lParam);
}

Код отправит сообщение WM_СOMMAND текущему активному окну с параметром wParam, равным SC_SCREENSAVE. Это должно запустить экран-сейвер.

Обратите внимание, что этот код предполагает, что вы работаете в Windows Forms-приложении. Если вы используете WPF или другой фреймворк, вам может потребоваться иной подход.

Что касается юмора в коде... я думаю, что автора этого кода имеет хороший чувство юмора!

В статье описано, как запустить текущий ScreenSaver в Windows с помощью команды SendMessage.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: ScreenSaver и ScreenMate ::