Создание скринсейвера для собственного окна в Delphi под Windows 11

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

Вопрос пользователя заключается в том, как запустить скринсейвер в собственном окне (Form) в Delphi для отображения на телевизоре. Проблема состоит в том, что при попытке передачи через зеркалирование компьютера на телевизор скринсейверы вызывают сбой передачи. Один из скринсейверов предлагает возможность запуска в собственном окне, что позволяет идеально работать зеркалированию. Пользователь ищет способ запустить скринсейвер в виде формы для последующей передачи на телевизор.

Пользователь уже пытался решить проблему с использованием параметра "/P" при вызове скринсейвера, но без успеха. Также были попытки использовать функции Windows API для установления родительского окна и отображения его содержимого в собственном окне приложения, но это также не привело к желаемому результату.

В обновлении пользователя указано, что попытка запустить скринсейвер без использования функций SetParent и ShowWindow, с использованием параметров "/P" и "/p", тоже оказалась неудачной. Пользователь упоминает, что скринсейвер все еще запускается в полноэкранном режиме, а не внутри формы, как планировалось.

В комментариях указано, что использование Form1.Handle следует заменить на Self.Handle, и рекомендуется попробовать использовать "/p" вместо "/P", если скринсейвер чувствителен к регистру. Также отмечено, что GetWindowDC() возвращает дескриптор устройства (HDC), а не окно (HWND), поэтому переменная hMyApp не может быть использована для SetParent() и ShowWindow(). Подчеркивается, что скринсейвер сам отвечает за отображение своего интерфейса внутри указанного родительского окна, и пользователю не следует самостоятельно переопределять родительское окно скринсейвера.

Подтвержденный ответ от Remy Lebeau указывает на то, что если скринсейвер не работает корректно с параметром "/p", возможно, он реализован неправильно. Предлагается попробовать использовать "/p:" вместо "/p ", а также рекомендуется использовать CreateProcess() вместо ShellExecute().

Код, который в итоге работал благодаря совету Remy Lebeau, использует CreateProcess() для запуска скринсейвера с указанием параметра "/p" и дескриптора окна, в котором должен отображаться скринсейвер. После выполнения CreateProcess(), программа ожидает завершения процесса скринсейвера и закрывает связанные дескрипторы процессов.

Теперь напишем статью на основе предоставленного контекста:

Скринсейверы – это программы, предназначенные для отображения различных анимаций или информационных сообщений вместо стандартного изображения экрая блокировки. В операционной системе Windows они запускаются автоматически через определенные временные интервалы при отсутствии активности пользователя.

В современном мире, где многие используют возможности зеркалирования рабочего стола на телевизор или другие устройства отображения, становится актуальной задача обеспечения корректного отображения скринсейверов. Одним из распространенных способов решения этой задачи является запуск скринсейвера в собственном окне (Form) приложения.

Запуск скринсейвера в собственное окно

Для того, чтобы запустить скринсейвер в определенное окно, можно использовать параметр /p при вызове программы. В этом параметре указывается дескриптор окна (HWND), в котором должен отображаться интерфейс скринсейвера.

Пример кода для запуска скринсейвера Bubbles.scr, расположенного по пути C:\Windows\System32\ с указанием того, что он должен отобразить себя в окне с дескриптором, полученным через свойство Handle объекта формы:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
   vWinHnd: HWND;
   VExePfad: string;
   vParam: string;
   SI: TStartupInfo;
   PI: TProcessInformation;
begin
   if Key = Ord(32) then // Нажата клавиша Пробел для запуска скринсейвера
   begin
      try
         vWinHnd := Self.Handle; // Получаем дескриптор окна формы
         vParam := '/p ' + IntToStr(vWinHnd); // Формируем параметр с указанием HWND
         VExePfad := 'C:\Windows\System32\Bubbles.scr'; // Путь к скринсейверу

         ZeroMemory(@SI, SizeOf(TStartupInfo)); // Обнуляем структуру TStartupInfo
         SI.Cb := SizeOf(TStartupInfo); // Задаем размер структуры
         SI.DwFlags := STARTF_USESHOWWINDOW; // Указываем использовать флаг отображения окна
         SI.WShowWindow := SW_SHOWMAXIMIZED; // Скринсейвер должен запуститься в максимализированном виде

         if CreateProcess(nil, PChar(VExePfad + ' ' + vParam), nil, nil,
            False, 0, nil, nil, SI, PI) then
         begin
            CloseHandle(PI.HThread); // Закрываем дескриптор потока
            CloseHandle(PI.HProcess); // Закрываем дескриптор процесса
         end;
      finally
         Form1.FormStyle := fsNormal; // Возвращаем стиль формы в обычный после выполнения скринсейвера
      end;
   end;

   if Key = Ord(27) then // Нажата клавиша Esc для завершения работы программы
   begin
      Application.Terminate;
   end;
end;

Учет особенностей скринсейверов

Не все скринсейверы могут корректно работать с параметром /p. Это может быть связано как с неправильной реализацией самого скринсейвера, так и с особенностями его взаимодействия с системой. В случае если скринсейвер не запускается в собственном окне, стоит убедиться, что используется правильный формат параметра (например, /p:<hwnd>) и что для запуска используется функция CreateProcess() вместо устаревшей ShellExecute().

Заключение

В данной статье мы рассмотрели пример реализации запуска скринсейвера в собственное окно приложения Delphi под управлением операционной системы Windows 11. Приведенные рекомендации и примеры кода помогут разработчикам, сталкивающимся с аналогичными задачами, обеспечить корректную работу скринсейверов на различных устройствах отображения.

Обратите внимание, что для запуска скриптсейвера в окне может потребоваться использование специального формата вызова, а также особые параметры при работе с многооконными процессами. Используйте эти знания для создания более гибких и функциональных пользовательских интерфейсов и расширения возможностей ваших программных систем.

Создано по материалам из источника по ссылке.

Пользователю требуется помощь в том, чтобы запустить скринсейвер в собственном окне Delphi для отображения на телевизоре. Скринсейверы обычно предназначены для работы в полноэкранном режиме, и проблема состоит в корректной передаче изображения через зерк

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

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

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