这里是屏的<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> temp:integer;<br>begin<br> SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@temp,0);<br>end;<br>这里是解屏的<br>procedure TForm1.Button2Click(Sender: TObject);<br>var<br> temp:integer;<br>begin<br> SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,@temp,0);<br>end;