Как определить размер физического диска?

[Robin_]

Привет всем!
Кто подскажет как определить размер ФИЗИЧЕСКОГО диска???

Или что-то типо этого:
Drive Model Number________________: WDC WD2500JD-00FYB0
Drive Serial Number_______________: WD-WMAEH1491504
Drive Controller Revision Number__: 02.05D02
Controller Buffer Size on Drive___: 8388608 bytes
Drive Type________________________: Fixed
Drive Size________________________: 250059350016 bytes

[Robin_]

Размер выяснил, может кто с моделью поможет???

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

function GetDriveSize (DriveNo : byte) : Int64;
var
 hDrive : THandle;
 Size : Int64;
 Tmp : Cardinal;

begin
 Result := 0;
 hDrive := CreateFile (PChar('\\.\PhysicalDrive' + Char(DriveNo + Ord('0'))),
                       GENERIC_READ,
                       FILE_SHARE_READ or FILE_SHARE_WRITE,
                       nil,
                       OPEN_EXISTING,
                       0,
                       0);
 if hDrive = INVALID_HANDLE_VALUE then Exit;

 Tmp := SizeOf(Size);
 Size := 0;
 if DeviceIoControl (hDrive, $7405C,
                     nil, 0,
                     @Size, SizeOf(Size), Tmp,
                     nil) then Result := Size;

 CloseHandle (hDrive);
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
   ShowMessage (FloatToStr(GetDriveSize(0)/(1024*1024*1024)) + ' Gb');
end;

end.

[supermario]

Robin_, Получилось узнать модель?

[_Valdemar_]

Я нарыл в интернете пример, пришлось немного переделать под Delphi XE и доработать. В Мемо выводятся данные из SMART физического HDD диска:
1. Номер HDD диска в системе.
2. Серийный номер HDD диска.
3. Версия толи контролера толи чего другого, я так и не понял.
4. Модель HDD диска.
5. Размер HDD диска (использовал GetDriveSize смотрите выше).
Пример не может прочитать данные с флешки и выдает ошибки(отключил вывод об ошибках).
Может кому пригодится пример и он захочет его доработать.

unit main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Math;

const
  SMART_GET_VERSION = $074080;
  SMART_SEND_DRIVE_COMMAND = $07C084;
  SMART_RCV_DRIVE_DATA = $07C088;
  // Values of ds_bDriverError
  DRVERR_NO_ERROR = 0;
  DRVERR_IDE_ERROR = 1;
  DRVERR_INVALID_FLAG = 2;
  DRVERR_INVALID_COMMAND = 3;
  DRVERR_INVALID_BUFFER = 4;
  DRVERR_INVALID_DRIVE = 5;
  DRVERR_INVALID_IOCTL = 6;
  DRVERR_ERROR_NO_MEM = 7;
  DRVERR_INVALID_REGISTER = 8;
  DRVERR_NOT_SUPPORTED = 9;
  DRVERR_NO_IDE_DEVICE = 10;
  // Values of ir_bCommandReg
  ATAPI_ID_CMD = $A1;
  ID_CMD       = $EC;
  SMART_CMD    = $B0;

type
  TIdeRegs = packed record
    bFeaturesReg,
    bSectorCountReg,
    bSectorNumberReg,
    bCylLowReg,
    bCylHighReg,
    bDriveHeadReg,
    bCommandReg,
    bReserved: byte;
  end;

  TDriverStatus = packed record
    bDriverError: byte;
    bIDEError:    byte;
    bReserved:    array[1..2] of byte;
    dwReserved:   array[1..2] of DWORD;
  end;

  TSendCmdInParams = packed record
    dwBufferSize: DWORD;
    irDriveRegs:  TIdeRegs;
    bDriveNumber: byte;
    bReserved:    array[1..3] of byte;
    dwReserved:   array[1..4] of DWORD;
    bBuffer:      byte;
  end;

  TSendCmdOutParams = packed record
    dwBufferSize:   DWORD;
    dsDriverStatus: TDriverStatus;
    bBuffer:        array[1..512] of byte;
  end;

  TGetVersionInParams = packed record
    bVersion,
    bRevision,
    bReserved,
    bIDEDeviceMap:  byte;
    dwCapabilities: DWORD;
    dwReserved:     array[1..4] of DWORD;
  end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1:   TMemo;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure CorrectDevInfo(var _params: TSendCmdOutParams);
asm
  PUSH EDI
  LEA EDI, _params.bBuffer
  ADD EDI, 14h
  MOV ECX, 0AH
  @@SerNumLoop:
  MOV AX, [EDI]
  XCHG AL, AH
  STOSW
  LOOP @@SerNumLoop
  ADD EDI, 6
  MOV CL, 18h
  @@ModelNumLoop:
  MOV AX, [EDI]
  XCHG AL, AH
  STOSW
  LOOP @@ModelNumLoop
  POP EDI
end;

procedure GetHDD;
var
  I:  integer;
  tmp: ansistring;
  St: ansistring;
  dev: THandle;
  scip: TSendCmdInParams;
  scop: TSendCmdOutParams;
  gvip: TGetVersionInParams;
  ret: DWORD;
  TmpSize: extended;
  Size: string;
begin
  St := '';
  for I := 0 to 25 do
  begin
    dev := CreateFile(PChar('\\.\PhysicalDrive ' + IntToStr(I)), GENERIC_READ or
      GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
    if dev <> INVALID_HANDLE_VALUE then
    begin
      if DeviceIoControl(dev, SMART_GET_VERSION, nil, 0, @gvip, SizeOf(gvip), ret, nil) then
      begin
        St := St + 'Disk № ' + ansistring(IntToStr(I)) + #13#10;
        St := St + '================================== =======' + #13#10;
        scip.irDriveRegs.bCommandReg := ID_CMD;
        if not DeviceIoControl(dev, SMART_RCV_DRIVE_DATA, @scip, SizeOf(scip),
          @scop, SizeOf(scop), ret, nil) then
          MessageBox(0, PChar(SysErrorMessage(GetLastError)), 'Error!', MB_OK or MB_ICONERROR)
        else
        if scop.dsDriverStatus.bDriverError = DRVERR_NO_ERROR then
        begin
          CorrectDevInfo(scop);
          SetLength(tmp, 20);
          Move(scop.bBuffer[21], tmp[1], 20);
          St := St + 'Serial Number: ' + tmp + #13#10;
          SetLength(tmp, 8);
          Move(scop.bBuffer[47], tmp[1], 8);
          St := St + 'Firmware Revision: ' + tmp + #13#10;
          SetLength(tmp, 40);
          Move(scop.bBuffer[55], tmp[1], 40);
          St := St + 'Model: ' + tmp + #13#10;
          TmpSize := GetDriveSize(i) / (1024 * 1024 * 1024);
          TmpSize := RoundTo(TmpSize, -1);
          Size := FloatToStr(TmpSize) + ' Gb';
          St := St + 'Size: ' + Size + #13#10#13#10;
          Form1.Memo1.Lines.Add(St);
        end
        else
          exit;
      end
      else
        exit;
      CloseHandle(dev);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetHDD;
end;

end.

От модератора
Вставляйте код используя тэг кода(#).

[min@y™]

Вот пример прям на сервере MSDN.
Копипастить сюда даже смысла нет.

[_Valdemar_]

Min@y, тот твой пример на сервере MSDN, на который ты ссылку указал написан для C#, и к тому же там определяется только геометрия диска . Пример не имеет отношение к этой теме.

[Пепел Феникса]

Сообщение от _Valdemar_

Min@y, тот твой пример на сервере MSDN, на который ты ссылку указал написан для C#, и к тому же там определяется только геометрия диска . Пример не имеет отношение к этой теме.

Он на С++.
и от геометрии идет размер физ диска.

[Utkin]

Хоспади... Некропостеры. И не лень же искать темы трехлетней давности.