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