获取第一个光驱盘符

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像

当前位置：> 程序开发 > 编程语言 > Delphi > 临时文章

获取第一个光驱盘符

作者:muse2008 时间:2002-09-27 11:41 出处:互联网责编:chinaitpower

摘要：获取第一个光驱盘符

{
***************************************
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;

关闭本页