Имитация работы пользователя

[Janger]

В общем, идея довольно простая. У ноутбука, имеется режим энергосбережения, который, переводит ноут в спящий режим, через определённый промежуток времени.
У меня этот промежуток, стоит - 1 мин.
Мне стало интересно.
Получится ли у меня дать понять ноутбуку, что им всё ещё пользуются ...
Вот что я сделал.
Таймер, с интервалом в 1 сек, и туда написал следующий код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

    SetCursorPos(Mouse.CursorPos.X+1,Mouse.CursorPos.Y);

end;

Вроде бы, ничего сложного.
Код смещает курсор мыши на 1 пиксель в право, каждую секунду.
Я думал, это даст понять Windows, что пользователь активно ею пользуется.
Решил протестировать, и что?
И ничего ....
Windows как блокировалась, так и продолжает блокироваться ...

Я не особо понимаю, почему ... И как сделать, что бы система всё же поверила, что пользователь что то делает с нею ...

Подскажите

[NetSpace]

а просто программно через реестр отключить спящий режим не проще ли будет?
-------------
да, строчек будет раза в 4 больше, т.к. желательно сохранить прежние параметры реестра в плане энергосбережения - запомнить значение параметра, ответственного за спящий режим.
--------------
если уж совсем не в моготу, то просто попробуй использовать виртуальное нажатие клавиш ALT+TAB - типа пользователь переключается между окнами. процедура SetKey...

[Alex11223]

SetThreadExecutionState
https://msdn.microsoft.com/en-us/lib...or=-2147217396

[dummy_user]

Отлавливать соотв. сообщение и игнорировать его действие.

[Haberman]

Тема не раскрыта!
Требуем продолжания.

[newerow1989]

Например, это:

var
  k:TKeyboardState;

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
   Label1.Caption:='        0  1  2  3  4  5  6  7  8  9'+#13+'0)     ';
   For i:=0 to High(k) do
   begin
      Label1.Caption:=Label1.Caption+IntToStr(GetKeyState(i))+'  ';
      If i mod 10=9 then
      begin
         Label1.Caption:=Label1.Caption+#13+IntToStr((i div 10)+1)+')   ';
         If i<90 then
            Label1.Caption:=Label1.Caption+'  ';
      end;
   end;
end;

Нажал клавишу - отобразилось