[Klyaksa]

Доброго времени суток. Возникла такая трабла.Юзаю SendInput на движение мыши. Так вот при запуске приложения с этим кодом

Код:

var
i:word;
TI:TInput;
MI: TMouseInput;
............
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ZeroMemory(@ti, SizeOf(TInput) * 1);
  inc(i);
  MI.dx := i;
  MI.dy := 400;

  MI.dwFlags := MOUSEEVENTF_MOVE;
  MI.time := 100;
  TI.mi := MI;
  TI.Itype := INPUT_MOUSE;

  SendInput(1, TI, SizeOf(TInput));
  if i=100 then i:=0
end;

гаснет монитор и система переодически подвисает. В чем причина?

[Alegun]

Код работает - периодически перемещает курсор в район часов, экран не вырубает и без подвисаний.