请问怎么禁止屏保的运行

Question

谢谢

Answer 1

谢谢大家 我找到一个方法 如下
我想通过一个按钮来控制 打开 或者是 关闭 屏幕保护，但是编译没通过，大家可以试试//---------------------------------------------------------------------------//捕获除了用SendMessage函数发送给应用程序的Windows消息//禁用屏保
procedure CaptureMessageOpen(Msg: Tmsg; Handle: Boolean); 
begin 
if (msg.message = WM_SYSCOMMAND) AND (msg.wParam = SC_SCREENSAVE) then 
handle := true //阻止屏幕保护的启动 
else 
handle := false; //进行该消息的缺省处理
end;//取消禁用屏保
procedure CaptureMessageClose(Msg: Tmsg; Handle: Boolean);
begin 
if (msg.message = WM_SYSCOMMAND) AND (msg.wParam = SC_SCREENSAVE) then 
handle := false //进行该消息的缺省处理
else 
handle := false; //进行该消息的缺省处理
end;//控制屏保
procedure TVedioForm.ScreenSaveClick(Sender: TObject);
begin
  if ScreenSave.Checked=false then
  begin
    ScreenSave.Checked:=true;
    Application.OnMessage :=CaptureMessageOpen;
  end
  else
  begin
    ScreenSave.Checked:=false;
    Application.OnMessage :=CaptureMessageClose;
  end;
end;