- 博客(1)
- 收藏
- 关注
RSS订阅原创 得到当前的光驱的盘符。
procedure GetCDROM(var CD:char);varstr:string;Drivers:Integer;driver:char;i,temp:integer;beginDrivers:=GetLogicalDrives;temp:=(1 and Drivers);for i:=0 to 26 dobegin if temp=1 then begin drive
2000-12-13 19:21:00
601
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人