无磁盘错误 c0000013 76b6b7c答案

【问题标题】：No Disk Error c0000013 76b6b7c无磁盘错误 c0000013 76b6b7c
【发布时间】：2013-10-04 23:23:37
【问题描述】：

我正在Delphi 中编写应用程序。它是用于学校项目的具有复制、删除等功能的文件浏览器。当应用程序检测到可移动设备时，我正在尝试将文件复制到其中之一。我收到带有参数76b6b7c 4 76b6b7c 76b6b7c 的c0000013 错误。

我读到将值 ErrorMode 更改为 2 可以修复它。是的，它修复了，但我不能直接从Delphi 应用程序更改此变量。我知道一个usb是usb ghost，但我不知道如何隐藏这个usb或跳过它。由于这个错误，我什至无法检查。

如果需要，还有其他想法可以从应用程序中修复它吗？

【问题讨论】：

虽然它是系统全局设置，但 MS 会显示您关闭“系统硬错误消息对话框”的位置，因为它可能会在无人看管的环境中弹出：support.microsoft.com/kb/128642/en-us

标签： windows delphi pascal

【解决方案1】：

错误c0000013 表示您正在访问的位置没有（可读）媒体。
见：http://msdn.microsoft.com/en-us/library/windows/desktop/ms681382%28v=vs.85%29.aspx

因此，检查错误并在没有媒体的情况下继续前进是完全可以的。

您可以像这样获取所有 USB 设备的列表（请参阅：Delphi - How to get list of USB removable hard drives and memory sticks?）

procedure GetUsbDrives(List: TStrings);
var
  DriveBits: set of 0..25;
  I: Integer;
  Drive: AnsiChar;
begin
  List.BeginUpdate;
  try
    Cardinal(DriveBits) := GetLogicalDrives;

    for I := 0 to 25 do
      if I in DriveBits then
      begin
        Drive := Chr(Ord('a') + I);
        if GetBusType(Drive) = BusTypeUsb then
          List.Add(Drive);
      end;
  finally
    List.EndUpdate;
  end;
end;

如果您随后访问驱动器并收到错误，只需使用 try-except 来检测是否出现任何问题，请参阅：Delphi - how to get a list of all files of directory

function IsDevicePresent(DriveLetterOrPath: string): boolean;
const 
  success = 0;
  Win_DeviceIsPresent = true;
  Fail_DeviceNotPresent = false;
var 
  SearchRec: TSearchRec;
  Drive: string;
begin
  Drive:= ExtractFileDrive(DriveLetterOrPath);
  try
    Result:= (FindFirst(Drive, faAnyFile, SearchRec) = success);
  except 
    Result:= Fail_DeviceNotPresent;
  end; {try}
end;

【讨论】：

感谢您的回复，但它没有帮助，如果我检查每个连接的 pendrive，如果 IsDevicePresent(drive) = TRUE 则为 ex。复制没有错误，只是不要在我选择的任何连接的USB上复制文件。
@MalcolmCartney，当然它不会复制，这就是代码的全部意义，您不能复制到会出错的棒上。这很明显。摇杆损坏，或者您的 Windows 需要更新驱动程序。
但我的意思是，现在我什至无法在正常工作的 USB 闪存上进行复制。我认为它总是给出错误。
然后你需要稍微调整一下代码，直到它按照你想要的方式工作。