home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hacks & Cracks
/
Hacks_and_Cracks.iso
/
vol1
/
pc_gxcrk.zip
/
TEST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-01-27
|
10KB
|
252 lines
uses crt,stringop,grafica,g_applic,util256,graph,mouse,dos;
type adapplic=object(g_application)
procedure background; virtual;
end;
var s : string ;
w : adapplic ;
i,fw,nw : word ;
p1,p2 : palette256 ;
pre : byte ;
soare : soarece ;
ala : integer ;
const
reg_nume : string='cRACKeD bY:';
reg_firma: string='eMX oF PC97!';
reg_no : string=' ;) ';
trk_2 : integer=220;
trk_3 : integer=1232;
const backgroundu:string='porn02.tpi';
procedure adapplic.background;
var f,n: integer;
begin
hide;
{ setviewport(0,21,639,454,true);
for f:=0 to 4 do
for n:=0 to 4 do begin
setfillstyle(1,9);
bar(f*160,n*100,f*160+159,n*100+99);
end;
setviewport(0,0,639,479,true);}
setfillstyle(1,0); bar(0,0,getmaxx,getmaxy);
show;
end;
procedure grad2;
label 1;
begin
fer_tip:=5; fer_spc:=5; {selecteaza tipul de buton}
w.newwin(40,40,350,320,long2str(memavail),true);
w.newchenar(55,80,335,213,10,2,false);
w.newcheck(75,90, ' ~L~ow level formatting your HDD',3,true);
w.newcheck(75,110,' Prompt before ~b~eginning',2,false);
w.newcheck(75,130,' Format boot and ~p~artition table',1,true);
w.newcheck(75,150,' Perform ~u~nconditional format',1,true);
w.newcheck(75,170,' Format all your ~f~ixed drives',3,true);
w.newcheck(75,190,' Put ~s~ystem back to disk',2,false);
w.newtext(53,230,' WARNING!!! This program is just about ');
w.newtext(53,240,' to format your HDD. Stay cool! You will ');
w.newtext(56,250,'have the entire HDD''s space just fou you');
w.newchenar(50,260,340,300,10,2,true);
w.newbut(80,270,180,290,'Vi~e~w file',9,os2,'');
w.newbut(210,270,310,290,'~P~rocent',9,os2,'');
repeat
w.handleevent;
case cm of
2: begin
s:=w.browse(120,50,'*.*',long2str(memavail));
if s<>'' then w.viewer(50,70,s,s);
cm:=0;
end;
3: begin
fer_tip:=6; w.newwin(70,90,415,320,long2str(memavail),true);
w.newprocent(80,160,400,175,0,1);
w.newprocent(80,230,400,245,0,4);
w.change_procent(1,100);
w.newtext(80,130,'~Progress:~');
w.newtext(80,200,'~Remaining:~');
w.newbut(110,280,230,300,'~O~K',10,os2,#13);
w.newbut(250,280,370,300,'~C~ancel',10,os2,#27);
w.setbuton(2,false);
for i:=1 to 100 do begin
w.change_procent(0,i);
w.change_procent(1,(100-i));
delay(10);
if keypressed or w.mouse_pressed then
begin w.handleevent; if (cm<>0) and (cm<>65535) then goto 1; end;
end;
w.setbuton(2,true);
w.setbuton(3,false);
repeat
w.handleevent;
until (cm=1) or (cm=2);
1:w.sterge_procent; w.sterge_procent; w.sterge_procent;
w.clrwin(1);
cm:=0;
end;
end;
until cm=1;
w.clrwin(1); cm:=0;
end;
begin
soundenable:=false;
w.init; _paleta:=3; w.ini_paleta;
fer_tip:=0;
t_color:=true;
memimage:=true;
relief:=false;
nr_expl:=10;
w.newwin(0,0,getmaxx,20,'',false);
w.newchenar(0,455,639,479,0,1,false);
w.newfill(1,456,638,478,10,1);
w.newchenar(2,457,520,476,0,1,true);
w.newchenar(530,457,637,476,0,1,true);
w.newbut(2,2,52,18,'~F~ile',4,os2,'');
w.newbut(52,2,102,18,'~C~lock',4,os2,'');
w.newbut(102,2,152,18,'~A~bout',4,os2,'');
w.newbut(152,2,212,18,'~R~eadme',4,os2,'');
w.newbut(212,2,282,18,'S~h~ow win',4,os2,'');
w.newbut(282,2,352,18,'S~h~ow but',4,os2,'');
w.newbut(352,2,412,18,'~P~alette',4,os2,'');
w.newbut(412,2,482,18,'Re~g~ister',4,os2,'');
w.newbut(482,2,522,18,'~Q~uit',4,os2,'');
w.newbut(580,2,635,18,'~H~elp',4,os2,'');
w.setbuton(10,false);
repeat
w.handleevent;
case cm of
1 : grad2;
2 : w.clock(180,100,460,370,'Clock - '+long2str(memavail));
3 : begin
fer_tip:=5;
w.newwin(40,70,520,350,'About Grafica - tESt ('+long2str(memavail)+')',true);
w.newchenar(60,105,500,165,10,2,false);
w.newchenar(120,175,440,330,10,2,true);
w.newfill(62,107,498,163,12,1);
w.newtext(70,115,' ~GRAFICA Warp 2.0~ ');
w.newtext(70,125,' With ~GRAFICA~ you can make wonderfull graphic ');
w.newtext(70,135,'interfaces, performanced and friendfull for programs make in');
w.newtext(70,145,'~Turbo/Borland PASCAL 7.0~. The easyest programming with this ');
w.newtext(70,155,' library is shown by the source code of this program. ');
w.newtext(80,190,' ~GRAFICA (tm)~ ');
w.newtext(80,220,' ~Gabriel CIOBOTARU~ ');
w.newtext(80,235,' 2:530/106@fidonet, gabriel@ysnet.pcnet.ro ');
w.newtext(80,260,' ~Adrian SUDITU~ ');
w.newtext(80,275,' 2:530/110@fidonet, asuditu@pcnet.pcnet.ro ');
w.newtext(80,300,' ~Alex SOVU~ ');
w.newtext(80,315,' 2:530/108@fidonet, as@qs.pcnet.ro ');
repeat
w.handleevent;
until cm<>0;
w.clrwin(1); cm:=0;
end;
4: w.viewer(60,80,'New viewer...','grafica.doc');
5: begin
for fw:=0 to 6 do
begin
fer_tip:=fw;
w.newwin(30+fw*30,20+fw*20,200+fw*30,230+fw*20,'Window type '+int2str(fw),true);
end;
for fw:=0 to 6 do
begin
repeat
w.handleevent;
until cm<>0; cm:=0;
w.clrwin(1);
end;
end;
6: begin
fer_tip:=6; w.newwin(200,20,440,450,'Testing window',true);
w.newchenar(218,60,422,142,10,1,true);
w.newchenar(221,63,419,139,10,1,false);
w.newchenar(210,150,430,430,0,1,true);
w.newchenar(212,152,428,428,0,1,true);
w.newchenar(214,154,426,426,0,1,true);
{ w.newfill(219,156,421,429,1,1);}
w.newtext(230,80, ' For testing the buttons ');
w.newtext(230,95, 'just push it with for exit');
w.newtext(230,110,' please push the close ');
w.newtext(230,125,' button from thw window. ');
for fw:=0 to 10 do
w.newbut(220,160+24*fw,310,155+24*(fw+1),'But.OS/2 ~'+int2str(fw)+'~',fw,os2,#255);
for fw:=0 to 10 do
w.newbut(330,160+24*fw,420,155+24*(fw+1),'But.DOZE ~'+chr(32+fw)+'~',fw,windoze,#255);
repeat
w.handleevent;
until cm=1; w.clrwin(1);
end;
7: begin
fer_tip:=5; w.newwin(120,110,520,350,'Testing Trackers ...',true);
w.newtracker(160,150,480,1,8,_paleta);
w.newtracker(160,220,270,10,500,trk_2);
w.newtracker(280,220,480,100,1400,trk_2);
w.newbut(160,300,260,320,'T~e~ster',9,os2,'');
w.newbut(270,300,370,320,'C~a~ncel',9,os2,'');
w.newbut(380,300,480,320,'He~l~p',9,os2,'');
ala:=2;
repeat
w.handleevent;
if cm=65532 then begin
_paleta:=w.get_tracker(1);
w.ini_paleta;
end;
until cm=1;
_paleta:=w.get_tracker(1); w.ini_paleta;
trk_2:=w.get_tracker(2);
trk_3:=w.get_tracker(3);
w.clrwin(1);
end;
8: begin
fer_tip:=5; w.newwin(120,110,520,350,'Registering ...',true);
w.newtext(140,160,'~N~ame: ');
w.newinput(210,153,510,167,reg_nume,'N');
w.newtext(140,180,'~C~ompany: ');
w.newinput(210,173,510,187,reg_firma,'C');
w.newtext(140,200,'~R~egistration number: ');
w.newinput(290,193,510,207,reg_no,'R');
w.newchenar(140,220,500,275,0,1,true);
w.newtext(150,230,'Please enter your correct ~N~ame, ~C~ompany details');
w.newtext(150,245,' and ~R~egistration number to complete the ');
w.newtext(150,260,' ~REGISTRATION~ procedure. ');
w.newbut(160,285,260,305,'Re~g~ister',9,os2,'');
w.newbut(270,285,370,305,'C~a~ncel',9,os2,'');
w.newbut(380,285,480,305,'He~l~p',9,os2,'');
w.newchenar(140,315,310,340,0,1,false);
w.newcheck(150,320,' R~e~gister all UNITS',2,true);
w.newchenar(330,315,500,340,0,1,false);
w.newcheck(340,320,' ~S~end license no.',3,true);
repeat w.handleevent; until cm=1;
reg_nume:=w.get_input(1);
reg_firma:=w.get_input(2);
reg_no:=w.get_input(3);
w.clrwin(1);
end;
end;
until cm=9;
w.clrwin(1); w.done;
Writeln('Low Level formatting ',w.check_result(0));
Writeln('Prompt ',w.check_result(1));
Writeln('Format boot ',w.check_result(2));
Writeln('Unconditional ',w.check_result(3));
Writeln('Format all ',w.check_result(4));
Writeln('Put system ',w.check_result(5));
Writeln('Log file: ',s);
Writeln('Returned: ',pre);
Writeln('===============================');
Writeln('Registration name : ',reg_nume);
Writeln('Registration comp.: ',reg_firma);
Writeln('Registration no. : ',reg_no);
Writeln('===============================');
Writeln('Tracker 1 : ',_paleta);
Writeln('Tracker 2 : ',trk_2);
Writeln('Tracker 3 : ',trk_3);
end.