综合

img muse2008

获取第一个光驱盘符

发表于2004/11/1 12:57:00  917人阅读

分类: Delphi文档

{
***************************************
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;
阅读全文
0 0

相关文章推荐

img
取 消
img