Показать сообщение отдельно
  #3  
Старый 24.11.2011, 16:23
Аватар для DelphiM0ZG
DelphiM0ZG DelphiM0ZG вне форума
Новичок
 
Регистрация: 22.10.2011
Сообщения: 62
Репутация: 666
По умолчанию

Как вариант, можно написать такую программу. Она будет висеть в фоновом режиме, как процесс и через 10 секунд немного передвигать курсор. При желании можно будет сделать автозапуск с помощью реестра.
Код:
program MouseMoveProject;

uses
  Windows;

Var
  CurPos: TPoint;
  dx, dy: ShortInt;

begin

  Randomize;

  Repeat
    Repeat
      dx:=Random(3)-Random(3);
      dy:=Random(3)-Random(3);
    Until ((dx<>0) Or (dy<>0));

    GetCursorPos(CurPos);
    SetCurSorPos(CurPos.X+dx, CurPos.Y+dy);

    Sleep(10000);
  Until (False);

end.
Я у себя эту прогу протестил, заставка всё-равно появляется. Надо что-то другое придумать, а не перемещение курсора. Похоже, что система именно на прерывания реагирует.
Ответить с цитированием