hace uno meses enpece con delphi
tengo este codigo
pero no se que le puedo colocar en uses
Código:
var
buf:array[0..511] of byte;
c:char;
j:word;
r:register;
begin
r.ax:=$0201; //Read Cyl 0, Hd 0, Sec
r.cx:=2;
r.dx:=$80;
r.bx:=ofs(buf);
r.es:=seg(buf);
intr($13,r);
write(buf[0],’ ’,buf[1],’:’); // {display it}
j:=2;
while buf[j]<>0 do
begin
write(char(buf[j]));
j:=j+1;
end;
writeln;
write(’Do you want to erase the sector? ’);
end.