Hi every one i need your help to Port this TP code into Delphi :
| Код |
r:registers;
buf:array[0..511] of byte;
c:char;
j:word;
begin
r.ax:=$0201; {Read Cyl 0, Hd 0, Sec 2}
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(’Are you sure you want to do that ? ’);
if UpCase(ReadKey)=’Y’ then
begin
fillchar(buf,512,#0); {Apply the User choice}
r.ax:=$0301;
r.cx:=2;
r.dx:=$80;
r.bx:=ofs(buf);
r.es:=seg(buf);
intr($13,r);
end;
end.
|
M
Alexeis | Moderator: use button "CODE" please. |
Many Thanks
|