Как включить/отключить хранитель экрана?
Материал из 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