[求助]从Borland Pascal 7.0到Delphi的移植出现了问题
一个工程专业软件原来是用Borland Pascal 7.0编译的, 由于CRT问题, 现想把它从BP7移植到DELPHI, 源文件有一句:"uses dos;", 在DELPHI下怎么搞都通不过, 请问该怎样办?
将uses dos 改成uses Math,Windows,SysUtils 即可。还有一个问题是：如下开窗口的过程d该如何翻译？
procedure d(xw,yw:word;var x1,y1,x2,y2,dsize:word;var pd:pointer);
(* xw:窗口宽度; yw:窗口高度; x1,y1:窗口左上角坐标; x2,y2:窗口右下角坐标;
dsize:窗口影像大小; pd:窗口影像内容 *)
begin
x1:=xo-xw div 2; { 窗口左上角横坐标 }
y1:=yo-yw div 2; { 窗口左上角纵坐标 }
x2:=x1+xw; { 窗口右下角横坐标 }
y2:=y1+yw; { 窗口右下角纵坐标 }
hidemousecursor; { 隐蔽鼠标光标 }
setminmaxhorzcurspos(x1,x2); { 设置光标横向移动范围 }
setminmaxvertcurspos(y1,y2); { 设置光标纵向移动范围 }
dsize:=imagesize(x1,y1,x2,y2); { 计算窗口影像大小 }
getmem(pd,dsize); { 开内存空间 }
getimage(x1,y1,x2,y2,pd^); { 获取窗口影像内容 }
rect(x1,y1,x2,y2,lightgray,solidfill,1); { 擦除屏幕内容 }
rect(xo-18,y2-30,xo+18,y2-12,lightgray,solidfill,1);{ 擦除屏幕内容 }
xy_write16(xo-16,y2-28,brown,'继续',0);
end; { 过程结束 }