获取第一个光驱盘符

{
***************************************
Get the First CD ROM
***************************************
}
function GetCDROM():string;
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
                                   GetCDROM:=driver;
                                   exit;
                          end;
                  end;
                drivers:=(drivers shr 1);
                temp:=(1 and Drivers);
        end;
end;

本文地址：http://com.8s8s.com/it/it4719.htm