当你的程序存取A驱动器时，可能会被’Drive Not Ready’系统错误所中断，可以使用下面的函数来测试驱动器，以避免这种情况发生，代码如下：
function DiskInDrive(Drive: Char): Boolean;
var
ErrorMode: word;
begin
http://www.gaodaima.com/65683.html避免驱动器A没有准备好错误_Delphi
Drive: = UpCase(Drive);
if not (Drive in [‘A’..’Z’]) then
raise EConvertError.Create(‘Not a valid drive ID’);
ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
try
if DiskSize(Ord(Drive) – $40) = -1 then
DiskInDrive := False
else
DiskInDrive := True;
finally
SetErrorMode(ErrorMode);
end;
end;
本函数的工作原理是：首先将驱动器符转换为大写字母，然后关闭系统错误报告功能，执行磁盘操作，操作成功返回True，表明驱动器里存在磁盘；操作失败返回False，表明发生错误，函数结束时打开系统错误报告功能。
欢迎大家阅读《避免驱动器A没有准备好错误_Delphi》,跪求各位点评,若觉得好的话请收藏本文，by 搞代码
搞代码网（gaodaima.com）提供的所有资源部分来自互联网，如果有侵犯您的版权或其他权益，请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected]，我们会在看到邮件的第一时间内为您处理，或直接联系QQ：872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接：避免驱动器A没有准备好错误_Delphi
转载请注明原文链接：避免驱动器A没有准备好错误_Delphi
