Como obtener la Capacidad Total del Disco Duro, independientemente de las particiones

[Neftali [Germán.Estévez]]

Prueba con este en .RAR

[Casimiro Notevi]

Sólo comentar que he descargado y me funcionan perfectamente tanto el zip como el rar

[Neftali [Germán.Estévez]]

Es muy probable, pero es verdad que alguna vez ha pasado en los foros.
Comprimo directamente desde TotalCommander y las librerías que utiliza a algunos usuarios les da problemas. Es una intriga que o hemos llegado a desvelar.

[[escafandra]]

Una aproximación al problema a bajo nivel puede ser leer directamente la unidad física, para extraer la tabla de particiones, donde encontraremos el tamaño en sectores de cada una. En este ejemplo muestro como hacerlo asumiendo que el tamaño de un sector es 512 bytes:

Código Delphi [-]
uses
  Windows, SysUtils;

type

// Entrada de la tabla de particiones
PARTITION_ENTRY = record
  Boot_Flag:       BYTE;   // Bandera de arranque
  CHS_Begin: array [1..2] of BYTE;
  _Type:           BYTE;   // Tipo de sistema de archivos
  CHS_End: array [1..2] of BYTE;
  LBA:             DWORD;  // Sector del ID volumen de la particición
  NumberOfSectors: DWORD;  // Tamaño en sectores de la partición
end;
PPARTITION_ENTRY = ^PARTITION_ENTRY;


function GetSizeOfPhysicalDisk(Name: String): UINT64;
var
  hFile: Cardinal;
  MBR: PByteArray;
  BytesRead: Cardinal;
  PE: array [0..4] of PARTITION_ENTRY;
  i: integer;
  Sectors: DWORD;
begin
  Sectors:= 0;
  GetMem(MBR,$0200);
  hFile:= CreateFile(PChar(Name), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_FLAG_NO_BUFFERING, 0);
  if hFile <> INVALID_HANDLE_VALUE then
  begin
    SetFilePointer(hFile, 0, nil, FILE_BEGIN);
    ReadFile(hFile, MBR^, 512, BytesRead, nil);
    CopyMemory(@PE, Pointer(DWORD(MBR)+446), 16*4);
    for i:=0 to 3 do inc(Sectors, PE[i].NumberOfSectors);
    CloseHandle(hFile);
  end;
  FreeMem(MBR);
  Result:= (UINT64(Sectors)-1) * 512;
end;

Un ejemplo de uso:

Código Delphi [-]
var
  TotalSize: UINT64;
begin
  TotalSize:= GetSizeOfPhysicalDisk('\\.\PhysicalDrive0');
end.

Saludos.

[Jose_Pérez]

Empezado por escafandra

Una aproximación al problema a bajo nivel puede ser leer directamente la unidad física, para extraer la tabla de particiones, donde encontraremos el tamaño en sectores de cada una. En este ejemplo muestro como hacerlo asumiendo que el tamaño de un sector es 512 bytes:

Realmente no es tan difícil obtener al tamaño de cada partición. Lo complicado es saber que particiones pertenecen a un mismo disco físico para así poder agruparlas y sumar los tamaños.

[[escafandra]]

Empezado por Jose_Pérez

Realmente no es tan difícil obtener al tamaño de cada partición. Lo complicado es saber que particiones pertenecen a un mismo disco físico para así poder agruparlas y sumar los tamaños.

Pues si te fijas en el código, encuentra las particiones de un mismo disco físico y suma sus tamaños.

Si lo que prenendes es saber que disco físico corresponde a una unidad, tampoco es tan complicado.


Saludos.

[[escafandra]]

Expongo otro ejemplo para calcular el tamaño de un disco sabiendo una unidad de volumen. La filosofía se basa en encontrar el número de disco físico a partir de una letra de unidad para luego explorar las unidades activas y ver si pertenecen al disco físico previamente conocido. El resto es sumar.

Este método puede contar algo de menos espacio que puede estar perdido en sectores no usados. En realidad el verdadero espacio disponible para el usuario después de formatear una unidad es menor que el nominal.

Código Delphi [-]
uses
  Windows, SysUtils;

function GetPhysicalDrive(Volume: Char): integer;
var
  hFile: THandle;
  Vde: array [0..56] of BYTE;
  BytesReturned: Cardinal;
begin
  Volume:= char((ord(Volume) or 32)-32);
  Result:= -1;
  hFile:= CreateFile(PAnsiChar('\\.\' + Volume + ':'),0,0,nil, OPEN_EXISTING, 0, 0);
  if hFile <> INVALID_HANDLE_VALUE then
  begin
    if DeviceIoControl(hFile, IOCTL_VOLUME_GET_VOLUME_DISK_EXTENTS, nil, 0, @Vde, SizeOf(Vde), BytesReturned, nil) then
      Result:= PBYTE(DWORD(@Vde)+8)^;
    CloseHandle(hFile);
  end;
end;

function GetDriveSizeFromVol(D: char): UINT64;
var
  LD: DWORD;
  Ch: char;
  Disk: DWORD;
begin
  Result:= 0;
  Disk:= GetPhysicalDrive(D);
  LD:= GetLogicalDrives();
  Ch:= 'A';
  while LD <>0 do
  begin
    if ((LD and $1) = 1) and (GetPhysicalDrive(Ch) = Disk) then
      Inc(Result, DiskSize(Ord(Ch) - Ord('A') + 1));
    LD:= LD shr 1;
    inc(Ch);
  end;
end;

Un ejemplo de uso:

Código Delphi [-]
var
  TotalSize: UINT64;
begin
  TotalSize:= GetDriveSizeFromVol('c');
  Writeln(TotalSize);
  ReadLn;
end.

Saludos.