Форум программистов [Powered by Invision Power Board]

Код

const
  IOCTL_DISK_GET_DRIVE_GEOMETRY_EX = $000700A0;
type

  MEDIA_TYPE = (Unknown, F5_1Pt2_512, F3_1Pt44_512, F3_2Pt88_512, F3_20Pt8_512,
    F3_720_512, F5_360_512, F5_320_512, F5_320_1024, F5_180_512, F5_160_512,
    RemovableMedia, FixedMedia, F3_120M_512, F3_640_512, F5_640_512, F5_720_512,
    F3_1Pt2_512, F3_1Pt23_1024, F5_1Pt23_1024, F3_128Mb_512, F3_230Mb_512,
    F8_256_128, F3_200Mb_512, F3_240M_512, F3_32M_512);

  PDISK_GEOMETRY = ^DISK_GEOMETRY;
  DISK_GEOMETRY = record
    Cylinders: LARGE_INTEGER;
    MediaType: MEDIA_TYPE;
    TracksPerCylinder: DWORD;
    SectorsPerTrack: DWORD;
    BytesPerSector: DWORD;
  end;

  PDISK_GEOMETRY_EX = ^DISK_GEOMETRY_EX;
  DISK_GEOMETRY_EX = record
    Geometry: DISK_GEOMETRY;
    DiskSize: LARGE_INTEGER;
    Data: array [0..0] of Byte;
  end;

var
  hDrive: DWORD;
  pDiskGeometry: PDISK_GEOMETRY_EX;
  pOvrlppd: POVERLAPPED;
  nOutBufferSize: DWORD;
  lpBytesReturned: DWORD;
  lSize: Int64;
  lTotalFreeSize, lTotalSize, lAVSize: LARGE_INTEGER;
begin
  {$R-}
//  hDrive := CreateFile ('\\.\\PhysicalDrive0', GENERIC_READ,
  hDrive := CreateFile ('\\.\CdRom0', GENERIC_READ,
    FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
  if hDrive <> INVALID_HANDLE_VALUE then
  begin
    DeviceIoControl(hDrive, IOCTL_DISK_GET_DRIVE_GEOMETRY_EX, nil, 0,
      nil, 0, lpBytesReturned, nil); (* Get Size *)

    if (GetLastError = ERROR_INSUFFICIENT_BUFFER)then
    begin
      nOutBufferSize := lpBytesReturned;
      pDiskGeometry := GetMemory(nOutBufferSize);
      ZeroMemory(pDiskGeometry, nOutBufferSize);
      if DeviceIoControl(hDrive, IOCTL_DISK_GET_DRIVE_GEOMETRY_EX, nil, 0,
        pDiskGeometry, nOutBufferSize, lpBytesReturned, nil) then
      begin
        (* Вариант 1*)
        lSize := pDiskGeometry^.DiskSize.QuadPart;
        lstSizes.Items.Add(IntToStr(lSize));
        (* Вариант 2*)
        lSize := pDiskGeometry^.Geometry.Cylinders.QuadPart *
          pDiskGeometry^.Geometry.TracksPerCylinder *
          pDiskGeometry^.Geometry.SectorsPerTrack *
          pDiskGeometry^.Geometry.BytesPerSector;
        lstSizes.Items.Add(IntToStr(lSize));
        FreeMemory(pDiskGeometry);
      end else
      begin
        FreeMemory(pDiskGeometry);
        RaiseLastOSError;
      end;
  end else
    RaiseLastOSError;
  end;


  (* Вариант 3 *)
  if not Windows.GetDiskFreeSpaceEx(PChar('\\.\CdRom0\'), lAVSize, lTotalSize, @lTotalFreeSize) then
    RaiseLastOSError;
  lstSizes.Items.Add(IntToStr(lTotalSize.QuadPart));
end;