关闭屏幕保护

导读:
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  {关闭}
  SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,
  0,
  nil,
  0);
  {打开}
  SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,
  1,
  nil,
  0);
  end;

本文转自
http://study.qqcf.com/web/245/29880.htm

你可能感兴趣的:(Web)