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

[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.

[Jose_Pérez]

En principio esa es la idea que yo perseguía.

Estoy intentando probarlo, pero me da un error de identificador no declarado. 'IOCTL_VOLUME_GET_VOLUME_DISK_EXTENTS'

He añadido las unidades Windows y SysUtils a uses. Trabajo con Delphi 5

[[escafandra]]

Empezado por Jose_Pérez

Estoy intentando probarlo, pero me da un error de identificador no declarado. 'IOCTL_VOLUME_GET_VOLUME_DISK_EXTENTS'

Código Delphi [-]
const
  IOCTL_VOLUME_GET_VOLUME_DISK_EXTENTS = $00560000;

Saludos.

[[escafandra]]

Coloco de nuevo el código completo para que no aparezca el problema con la Cte IOCTL_VOLUME_GET_VOLUME_DISK_EXTENTS en los usuarios que copien el código tal cual:

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

const
  IOCTL_VOLUME_GET_VOLUME_DISK_EXTENTS = $00560000;

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.

[Jose_Pérez]

Muchas gracias Escafandra. Es lo que necesitaba. También mi agradecimiento a Neftali.

Saludos.