|
|
|
|
获取第一个光驱盘符 |
|
|
|
作者：未知 来源：月光软件站 加入时间：2005-2-28 月光软件站 |
{
***************************************
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;
|
|
相关文章：相关软件： |
|
本类阅读TOP10