得到当前的光驱的盘符

核心提示：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 dob

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;