[NumLock]

добавил программу:

Код:

var
  i: Integer;
begin
  SetThreadExecutionState(2);
  if not SystemParametersInfo(SPI_GETSCREENSAVETIMEOUT,0,@i,0) then RaiseLastOSError;
  ShowMessage(IntToStr(i));
  if not SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT,i,nil,0) then RaiseLastOSError;
end;

в автозагрузку, все запускается и работает