Доброго времени суток. Возникла такая трабла.Юзаю 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;
гаснет монитор и система переодически подвисает. В чем причина?