得到当前的光驱的盘符。

页面导航:首页 > 软件编程 > Delphi > 得到当前的光驱的盘符。

得到当前的光驱的盘符。

来源: 作者: 时间:2016-01-21 09:33 【

procedure GetCDROM(var CD:char);varstr:string;Drivers:Integer;driver:char;i,temp:integer;beginDrivers:=GetLogicalDrives;temp:=(1 and Drivers);for i:=0 to 26 dobegin if temp=1 then begin 
procedure GetCDROM(var CD:char);
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
         cd:=driver;
         exit;
       end;
    end;
  drivers:=(drivers shr 1);
  temp:=(1 and Drivers);
end;
end;
Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <