获取第一个光驱盘符

最新推荐文章于 2024-06-11 10:39:54 发布

muse2008

最新推荐文章于 2024-06-11 10:39:54 发布

阅读量1.2k

点赞数

分类专栏： Delphi文档文章标签： integer string function

本文链接：https://blog.csdn.net/muse2008/article/details/162037

版权

Delphi文档专栏收录该内容

1 篇文章 0 订阅

订阅专栏

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