使用什么函数或方法来判断驱动器中是否有磁盘存在
编号：QA000454
建立日期: 1999年1月30日 最后修改日期：1999年1月30日
所属类别：
李剑锋:
Delphi
Windows 95
在DELPHI中使用什么函数或方法来判断驱动器中是否有磁盘存在？
回答:
用下面这个函数：
function DiskInDrive(const Drive: char): Boolean;
var
DrvNum: byte;
EMode: Word;
begin
result := false;
DrvNum := ord(Drive);
if DrvNum >= ord('a') then dec(DrvNum,$20);
EMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
if DiskSize(DrvNum-$40) <> -1 then result := true
else messagebeep(0);
finally
SetErrorMode(EMode);
end;
end;
此问题由李海回答。
| |
|
|
| |
|
|
