获取第一个光驱盘符

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

原创最新推荐文章于 2024-06-11 10:39:54 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #string #function

Delphi文档专栏收录该内容

1 篇文章

订阅专栏

博客展示了一个获取首个CD-ROM的函数GetCDROM。该函数通过一系列操作，如获取逻辑驱动器、遍历驱动器类型等，最终找到CD-ROM并返回其对应的字符标识。函数使用了整数和字符串类型进行数据处理。

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