得到当前的光驱的盘符。

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;