Pascalda Windows Masaüstüne Benzer Bir Ekran (Grafik Ortamında)

Kod:
Uses Crt,Dos,Graph;
Var
Gd,Gm          : Integer;
F              : Registers;
X,Y,Dugme      : Integer;
S1,S2          : String;
MX,MY          : Integer;
T              : Char;
Menu           : Byte;
S,D,Sn,Sa      : Word;
ST1,ST2,ST3    : String[10];
X1,Y1,X2,Y2    : Integer;
I              : Integer;
P              : Integer;

Procedure Prg;
Begin

End;

Procedure Basla;
Begin
p:=2;
Gd:=Detect;
Initgraph(Gd,Gm,");
{If Fare_Varmi Then Outtextxy(0,0,'Fare Bulundu')
Else Begin Outtextxy(0,0,'Fare Yok'); Readln; Halt; End; }
F.Ax:=0;
Intr($33,F);
F.Ax:=1;
Intr($33,F);

MX:=Getmaxx;
MY:=Getmaxy;
Setbkcolor(0);
Randomize;
For I:=1 To 10000 Do
Putpixel(Random(Getmaxx),Random(Getmaxy),Random(15));
Menu:=0;
Setfillstyle(1,07); Bar(1,Getmaxy-20,MX,MY);
Setcolor(4); Outtextxy(5,MY-12,'Baslat');
Setcolor(0); Outtextxy(100,MY-12,'halitclp@hotmail.com');
ST1:=";
ST2:=";
Repeat
Repeat
Gettime(S,D,Sn,Sa);
Str(S,ST1);
Str(D,ST2);
Str(Sn,ST3);
Str(X:3,S1);
Str(Y:3,S2);
Settextstyle(0,Horizdir,0);
{Setcolor(00); Outtextxy(550,1,'ÛÛÛÛÛÛÛÛÛÛÛÛ');
Setcolor(15); Outtextxy(550,1,S1+','+S2);}

Setcolor(07); Outtextxy(MX-45,MY-12,'ÛÛÛÛÛÛÛÛÛ');
Setcolor(08); Outtextxy(MX-45,MY-12,ST1+':'+ST2);

Rectangle(5,5,30,30);
Rectangle(10,10,25,25);

Line(5,5,10,10);   Line(25,25,30,30);
Line(5,30,10,25);  Line(30,5,25,10);

Line(5,30,30,30);  Line(10,40,35,40);
Line(5,30,10,40);  Line(30,30,35,40);
Setcolor(15); Settextstyle(2,Horizdir,0); Outtextxy(1,40,'Bilgisayarim');

Delay(250);

Until Keypressed;
If Keypressed Then T:=Readkey;
Until T=#27;
End;

Begin
Basla;
End.