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

Previous  Top  Next

    
 

 

 

Code:

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;

 

©Drkb::02373