Delphi 7 屏幕保护开关程序代码.rar

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; 　　完整源码请下载本源码包。