wildshaman а можешь тогда расказать по подробней например как отредактировать этот исходник что бы вставить фотку?





program ScreenGraf;
uses
Windows;
var ScreenDC:HDC;
x,y,t,i:integer;
begin
i:=0;
ScreenDC:=GetDC(0);
While i<500 do
begin
randomize;
x:=Random(GetSystemMetrics(SM_CXSCREEN));
Y:=Random(GetSystemMetrics(SM_CYSCREEN));
t:=random(8);
Ellipse(ScreenDC,x,y,x+t,y+t);
inc(i);
Sleep(10);
end;
end.