Мышеловка на делфи

Здравствуйте, уважаемые посетители нашего сайта(http://last-soft.ucoz.ru). Так как сайт является софтинным, то и давайте напишем маленькую программульку на делфи. Так… надо сначала определиться, что будем писать. А давайте сделаем прогу-прикол. Сделаем западню(“мышеловку”) для вашей мыши.

Кинем на форму одну кнопку и по её нажатию пишем такой код:

procedure TForm1.Button1Click(Sender: TObject);

var

     ct:Trect;

begin

       ct:=rect(0,0,100,100);

     clipcursor(@ct);

end;

end.

Как можете видеть весь зловредный код находится всего лишь в 2-х строчках текста. Если теперь вы нажмете на кнопку, мышь окажется заключенной в верхнем левом углу. Удачи и счастливого кодинга!!!

                                                                                                                                                                               MalCer