初始化磁盘时拒绝访问

Question

我有以下代码：

if (APartitionStyle = 0) then //mbr
  begin
    hDevice := CreateFile(
                            PChar(ADisk),
                            GENERIC_WRITE and GENERIC_READ,
                            FILE_SHARE_WRITE and FILE_SHARE_READ,
                            nil,
                            OPEN_EXISTING,
                            0,
                            0);

    error := SysErrorMessage(GetLastError);

    if (hDevice = INVALID_HANDLE_VALUE) then
    begin
      error := SysErrorMessage(GetLastError);
      result := error;
    end;

    dwIoControlCode := IOCTL_DISK_CREATE_DISK;

    dsk.PartitionStyle := PARTITION_STYLE_MBR;
    dsk.mbr.Signature := Random(9999);

    lpInBuffer := @dsk;
    nInBufferSize := sizeof(CREATE_DISK);
    lpOutBuffer := nil;
    nOutBufferSize := 0;
    lpOverlapped := nil;

    bresult := DeviceIOControl(
                                hDevice,
                                dwIoControlCode,
                                lpInBuffer,
                                nInBufferSize,
                                lpOutBuffer,
                                nOutBufferSize,
                                lpBytesReturned,
                                lpOverlapped);

    if not bresult then
    begin
      error := SysErrorMessage(GetLastError);
      result := error;
    end;

我已经以管理员或系统以及用户（具有管理员权限）的身份执行了代码。

我读过类似内容：驱动程序已锁定。代码中是否缺少某些内容？

句柄创建成功。在 DeviceIOControl 上我得到一个错误 "Access Denied".

Answer 1

您向 CreateFile() 传递的值不正确。您正在使用 and 运算符来组合位标志：

hDevice := CreateFile(
                        PChar(ADisk),
                        GENERIC_WRITE and GENERIC_READ, { = 0 ! }
                        FILE_SHARE_WRITE and FILE_SHARE_READ, { = 0 ! }
                        nil,
                        OPEN_EXISTING,
                        0,
                        0);

您需要改用 or 运算符：

hDevice := CreateFile(
                        PChar(ADisk),
                        GENERIC_WRITE or GENERIC_READ, { = $C0000000 ! }
                        FILE_SHARE_WRITE or FILE_SHARE_READ, { = [=11=]000003 ! }
                        nil,
                        OPEN_EXISTING,
                        0,
                        0);

初始化磁盘时拒绝访问

Access Denied when initialize Disk

delphi

initialization

disk