文件名称：Delphi 7 屏幕保护开关程序代码.rar
文件大小：7KB
文件格式：RAR
更新时间：2022-07-30 03:37:48
Delphi源码-系统相关
Delphi 7开关屏幕保护程序源代码，比较简单的那种，用于控制系统的屏幕保护是否开启或关闭的功能，以下是部分代码片段： begin Ini:=TInifile.Create('system.ini'); ScreenSaverFile:='屏幕保护程序：' GetLongFileName(Ini.ReadString('boot','SCRNSAVE.EXE','Not Available')); Ini.Free; Label1.Caption:=ScreenSaverFile; end; procedure TForm1.Button2Click(Sender: TObject); begin if TurnScreenSaverOn then SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,0,nil,0); if not TurnScreenSaverOn then SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,1,nil,0); end; 完整源码请下载本源码包。
【文件预览】：
srcfans.com
----开关屏幕保护()
--------Unit1.ddp(51B)
--------Project1.res(1KB)
--------Unit1.dcu(5KB)
--------Unit1.dfm(1KB)
--------Project1.cfg(420B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.pas(2KB)