关闭屏幕保护

最新推荐文章于 2025-02-13 09:33:18 发布

最新推荐文章于 2025-02-13 09:33:18 发布 · 158 阅读

文章标签：

导读：
　　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