CSDN博客

img laoyumi

得到当前的光驱的盘符。

发表于2000/12/13 19:21:00  406人阅读

procedure GetCDROM(var CD:char);
var
str:string;
Drivers:Integer;
driver:char;
i,temp:integer;
begin
Drivers:=GetLogicalDrives;
temp:=(1 and Drivers);
for i:=0 to 26 do
begin
  if temp=1 then
    begin
      driver:=char(i+integer('a'));
      str:=driver+':';
      if   GetDriveType(pchar(str))=DRIVE_CDROM then
       begin
         cd:=driver;
         exit;
       end;
    end;
  drivers:=(drivers shr 1);
  temp:=(1 and Drivers);
end;
end;
阅读全文
0 0

相关文章推荐

img
取 消
img