Управление мышкой Автор: Nomadic Мышка на сервере... procedure TForm1.Timer1Timer(Sender: TObject); begin mouse_event(MOUSEEVENTF_MOVE, Random(21) - 10, Random(21) - 10, 0, 0); end; Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
procedure TForm1.Timer1Timer(Sender: TObject); begin mouse_event(MOUSEEVENTF_MOVE, Random(21) - 10, Random(21) - 10, 0, 0); end;