var 
  temp:integer;
begin
  systemparametersinfo(spi_screensaverrunning,1,@temp,0);
end;

解决方案 »

  1.   

    win2000以下;
    SystemParametersInfo(SPI_SCREENSAVERRUNNING,  1,  0,  0);
      
      要恢复系统的热启动键(Ctrl+Alt+Del),使用以下语句
      SystemParametersInfo(SPI_SCREENSAVERRUNNING,  0,  0,  0);
      

  2.   

    锁住:
    SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@tmp,0)解锁:
    SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,@tmp,0);
      

  3.   

    win2000下gina好使,讨论的教多
      

  4.   

    当你不需要让用户按Alt+Enter、Ctrl+Alt+Del、Ctrl+Esc等功能键的时候加入以下代码:
    Var
    temp:integer;
    begin
    SystemParametersInfo(Spi_screensaverrunning,1,@temp,0);
    end;
      当你要恢复功能键时用以下代码:
    Var
    Temp:integer;
    begin
    SystemParametersInfo(spi_screensaverrunning,0,@temp,0);
    end;
      

  5.   

    屏蔽了Ctrl+Alt+Del,那Win2000的安全....