Графические приколы. или Tcanvas

прикол ночной дозор
всё ясно и понятно
program nki;

uses
windows,
Graphics;

var
tt:TCanvas;

begin

tt:= TCanvas.Create;
tt.Handle := GetDC(0);
while true do
begin
sleep (1);//чем больше тем меньше скорость заполнения
tt.LineTo(random(240),random(240));//занижено чтобы можно было выключить


end;
end.

и так

можно рисовать на экране . так

program mo;



uses
Windows,
graphics;

var
kt:Tpoint;
H:HWND;
HC:TCANVAS;

begin
setCursorpos(0,0);
hc:=TCanvas.Create;
hc.Handle:=getdc(0);

while true do
begin
yield;
getcursorpos(kt);

hc.lineto(kt.X,kt.Y);
end;


end.

в общем много чего можно сделать.. пишите или стучитесь в асю если иинтерестно ещё чегонибудь по этой теме......