Как включить/отключить хранитель экрана?

Материал из DRKB

Как включить/отключить хранитель экрана?[править | править код]

procedure TForm1.Button1Click(Sender: TObject);
begin
  { Turn it off }
  SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0);
  { Turn it on }
  SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, 0);
end;


ID: 02373