SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,0,0);
恢复用SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,0,0);

解决方案 »

  1.   

    这个方法在win2000下不好使??
      

  2.   

    另外也可以用自己的程序实现
    private AppMessage(var Msg:TMSG;var handled:boolean);procedure TForm1.AppMessage(var Msg:TMsg;var handled:boolean);
    begin
      handled:=false;
      Case Msg.Message of
       WM_SYSKEYDOWN: 
             if Msg.wParam=VK_F4 then
                 handled:=true;
      end;
    end;procedure TForm1.FormCreate(Sender:TObject);
    begin
       Application.OnMessage:=AppMessage;
    end;
    这个程序是让你屏蔽掉F4键