Пишем ScreenSaver в Delphi

В примере описывается создание простейшего скринсейвера, а так же его установка и запуск.

Для написания скринсейвера нам необходимо включить следующие процедуры:

FormShow: скрыть курсор, установка обработки сообщений, начало отображения скринсейвера
FormHide: окончание отображения скринсейвера, отображение курсора
DeactivateScrSaver: обработка сообщений, деактивирование, если нажата мышка или клавиатура

Типичный код для этих процедур показан ниже.

Вы должны быть уверены, что Ваша форма создана со стилем fsStayOnTop. Вы так же должны быть уверены, что только один экземпляр Вашей программы будет запущен в системе. И в заключении Вам необходимо включить директиву компилятора {$D "Programname Screensaver"} в Ваш проект (*.dpr).

После того, как Вы скомпилируете программу, измените расширение файла на SCR и скопируйте его в Вашу системную папку \WINDOWS\SYSTEM .

var
  crs : TPoint; {первоначально расположение курсора мышки}

procedure TScrForm.FormShow(Sender: TObject);
{starts the screensaver}
begin
  WindowState := wsMaximized; {окошко будет на полный экран}
  GetCursorPos(crs); {получаем позицию курсора}
  Application.OnMessage := DeactivateScrSaver; {проверяем мышку/клавиатуру}
  ShowCursor(false); {скрываем курсор}
  {начинаем отображение скринсейвера...}
  //
end; {процедура TScrForm.FormShow}

procedure TScrForm.FormHide(Sender: TObject);
{возвращаем управление пользователю}
begin
  Application.OnMessage := nil; {запрещаем сообщения}
  {останавливаем скринсейвер...}
  //
  ShowCursor(true); {возвращаем курсор назад}
end; {procedure TScrForm.FormHide}

procedure TScrForm.DeactivateScrSaver(var Msg : TMsg; var Handled : boolean);
{определение движения мышки или нажатия на клавиатуре}
var
  done: boolean;
begin
  if Msg.message = WM_MOUSEMOVE then {сдвинулась мышка}
    done := (Abs(LOWORD(Msg.lParam) - crs.x) > 5) or
    (Abs(HIWORD(Msg.lParam) - crs.y) > 5)
  else {key / mouse нажаты?}
    done := (Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP) or
    (Msg.message = WM_SYSKEYDOWN) or (Msg.message = WM_SYSKEYUP) or
    (Msg.message = WM_ACTIVATE) or (Msg.message = WM_NCACTIVATE) or
    (Msg.message = WM_ACTIVATEAPP) or (Msg.message = WM_LBUTTONDOWN) or
    (Msg.message = WM_RBUTTONDOWN) or (Msg.message = WM_MBUTTONDOWN);
  if done then
    Close;
end; {procedure TScrForm.DeactivateScrSaver}

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация по разработке на Delph - "Пишем ScreenSaver в Delphi", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!