本文介绍了一个简单的Delphi程序，该程序能够获取当前计算机中光驱的盘符。通过遍历所有可用的驱动器并使用GetDriveType函数来确定驱动器类型，从而找到CD-ROM驱动器。
得到当前的光驱的盘符。 (转)[@more@]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;
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;
来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-987427/，如需转载，请注明出处，否则将追究法律责任。
转载于:http://blog.itpub.net/10752043/viewspace-987427/
扫一扫
350
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
