答案:procedure TForm1.Button1Click(Sender: TObject); begin {关闭} SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0); {打开} SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, 0); end;
上一个:偶做的用户管理系统下一个:在ASP中使用“Request”时应注意的问题