Uciekająca mysz

procedure uciekajaca_mysz;
var P: TPoint;
begin
 SetCursorPos(Random(Screen.Width), Random(Screen.Height));
end;

Kategoria: Delphi » Żarty w Delphi

1 komentarz

Brak avatara
Napisany 2009-05-16 10:45 przez Żabie Udka

Czy nie lepiej tak?
Mouse.CursorPos := Point(Random(Screen.Width), Random(Screen.Height));

Facebook
4programmers.net