1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

//...
  if hnd <> INVALID_HANDLE_VALUE then
  begin
    ZeroMemory(@cmdIn, SizeOf(cmdIn));
    with cmdIn.irDriveRegs do
    begin
      bFeaturesReg := ENABLE_SMART;
      bSectorCountReg := 1;
      bSectorNumberReg := 1;
      bCylLowReg := SMART_CYL_LOW;
      bCylHighReg := SMART_CYL_HI;
      bDriveHeadReg := DRIVE_HEAD_REG;
      bCommandReg := SMART_CMD;

      ZeroMemory(@cmdOut, SizeOf(cmdOut));
      result := DeviceIoControl(hnd, SMART_SEND_DRIVE_COMMAND,
                                @cmdIn, SizeOf(cmdIn), @cmdOut, SizeOf(cmdOut),
                                bytesReturned, nil);
    end;
  end;
//...                    

1:
2:
3:
4:
5:
6:

  _SENDCMDOUTPARAMS = record
    cBufferSize: DWord;
    DriverStatus: TDriverStatus;
    bBuffer: array[0..0] of Byte;
    irDriveRegs: TIdeRegs;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

const
  SMART_SEND_DRIVE_COMMAND     = $0007C084;
  ENABLE_SMART                 = $000000D8;
  SMART_CYL_LOW                = $0000004F;
  SMART_CYL_HI                 = $000000C2;
  SMART_CMD                    = $000000B0;
  DRIVE_HEAD_REG               = $000000A0;
  READ_ATTRIBUTES              = $D0;
  READ_THRESHOLDS              = $D1;

function SmartExists(ADriveLetter: Char): Boolean;
var
  root: PChar;
  hnd: THandle;
  cmdIn: TSendCmdInParams;
  cmdOut: TSendCmdOutParams;
  bytesReturned: DWord;
begin
  result := false;
  root := PChar('\\.\' + UpCase(ADriveLetter) + ':');
  hnd := CreateFile(root, GENERIC_READ or GENERIC_WRITE,
                    FILE_SHARE_READ or FILE_SHARE_WRITE, nil,
                    OPEN_EXISTING, FILE_ATTRIBUTE_SYSTEM, 0);

  if hnd <> INVALID_HANDLE_VALUE then
  begin
    ZeroMemory(@cmdIn, SizeOf(cmdIn));
    cmdIn.cBufferSize := 512;
    with cmdIn.irDriveRegs do
    begin
      bFeaturesReg := READ_ATTRIBUTES;
      bCommandReg := SMART_CMD;
      bDriveHeadReg := DRIVE_HEAD_REG;

      ZeroMemory(@cmdOut, SizeOf(cmdOut));
      result := DeviceIoControl(hnd, SMART_RCV_DRIVE_DATA,
                                @cmdIn, SizeOf(cmdIn), @cmdOut, SizeOf(cmdOut),
                                bytesReturned, nil);
    end;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

[#] Laufwerk C  (Festplatte)
HandleError = 0
SmartVersionError = 5
SmartDataError = 5
[#] Laufwerk D  (Festplatte)
HandleError = 0
SmartVersionError = 5
SmartDataError = 5
[#] Laufwerk E  (Festplatte)
HandleError = 0
SmartVersionError = 5
SmartDataError = 5
[#] Laufwerk F  
HandleError = 0
SmartVersionError = 1
SmartDataError = 1
[#] Laufwerk G  (Festplatte)
HandleError = 0
SmartVersionError = 1117
SmartDataError = 1117
[#] Laufwerk Z  
HandleError = 0
SmartVersionError = 1
SmartDataError = 1                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

[#] Laufwerk C  (Festplatte)
HandleError = 0
SmartVersionError = 5
SmartDataError = 5
[#] Laufwerk D  (Festplatte)
HandleError = 0
SmartVersionError = 5
SmartDataError = 5
[#] Laufwerk E  (Festplatte)
HandleError = 0
SmartVersionError = 5
SmartDataError = 5
[#] Laufwerk F  (Festplatte)
HandleError = 0
SmartVersionError = 5
SmartDataError = 5
[#] Laufwerk H  (Festplatte) = USB-DISK
HandleError = 0
SmartVersionError = 1117
SmartDataError = 1117
[#] Laufwerk I  
HandleError = 0
SmartVersionError = 1
SmartDataError = 1                    

1:
2:
3:

  DeviceIoControl(hDrive, SMART_GET_VERSION, nil, 0,
                  @gvParams, SizeOf(gvParams), bytesReturned, nil);
  result := GetLastError;                    

1:
2:
3:
4:
5:

  
  Result := 0;
  if not DeviceIoControl(hDrive, SMART_GET_VERSION, nil, 0,
                  @gvParams, SizeOf(gvParams), bytesReturned, nil) then
  result := GetLastError;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:

uses ...Winapi.ActiveX, System.Win.ComObj, ...

procedure MM(s:string); begin Form1.Memo1.Lines.Add(s); end;

function VarToInt(const AVariant: Variant): integer;
begin Result := StrToIntDef(Trim(VarToStr(AVariant)), 0); end;

procedure  GetCIM_MediaAccessDeviceInfo;
const
  WbemUser            ='';
  WbemPassword        ='';
  WbemComputer        ='localhost';
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
  I : Integer;
  Data : array of WORD;
  params: OleVariant;
begin;
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM CIM_MediaAccessDevice','WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  while oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
    MM(Format('Availability                   %d',[VartoInt(FWbemObject.Availability)]));// Uint16
//    MM(Format('Capabilities                   %d',[VartoInt(FWbemObject.Capabilities)]));// Array of Uint16
//    MM(Format('CapabilityDescriptions         %s',[VartoStr(FWbemObject.CapabilityDescriptions)]));// Array of String
      if not VarIsNull(FWbemObject.Capabilities) then
      begin
        Data := FWbemObject.Capabilities;
        for I:= VarArrayLowBound(data,1) to VarArrayHighBound(data,1) do
          MM('Capabilities: '+IntToStr(Data[I]));// Array of WORD /Uint16
      end;

      if not VarIsNull(FWbemObject.CapabilityDescriptions) then
      begin
        Params := FWbemObject.CapabilityDescriptions;
        for I:= VarArrayLowBound(Params,1) to VarArrayHighBound(Params,1) do
          MM('CapabilityDescriptions: '+ VarToStr(Params[I]));// Array of VarToStr
      end;

    MM(Format('Caption                        %s',[VartoStr(FWbemObject.Caption)]));// String
    MM(Format('CompressionMethod              %s',[VartoStr(FWbemObject.CompressionMethod)]));// String
    MM(Format('ConfigManagerErrorCode         %d',[VartoInt(FWbemObject.ConfigManagerErrorCode)]));// Uint32
    MM(Format('ConfigManagerUserConfig        %s',[VartoStr(FWbemObject.ConfigManagerUserConfig)]));// Boolean
    MM(Format('CreationClassName              %s',[VartoStr(FWbemObject.CreationClassName)]));// String
    MM(Format('DefaultBlockSize               %d',[VartoInt(FWbemObject.DefaultBlockSize)]));// Uint64
    MM(Format('Description                    %s',[VartoStr(FWbemObject.Description)]));// String
    MM(Format('DeviceID                       %s',[VartoStr(FWbemObject.DeviceID)]));// String
    MM(Format('ErrorCleared                   %s',[VartoStr(FWbemObject.ErrorCleared)]));// Boolean
    MM(Format('ErrorDescription               %s',[VartoStr(FWbemObject.ErrorDescription)]));// String
    MM(Format('ErrorMethodology               %s',[VartoStr(FWbemObject.ErrorMethodology)]));// String
    MM(Format('InstallDate                    %s',[VartoStr(FWbemObject.InstallDate)]));// Datetime
    MM(Format('LastErrorCode                  %d',[VartoInt(FWbemObject.LastErrorCode)]));// Uint32
    MM(Format('MaxBlockSize                   %d',[VartoInt(FWbemObject.MaxBlockSize)]));// Uint64
    MM(Format('MaxMediaSize                   %d',[VartoInt(FWbemObject.MaxMediaSize)]));// Uint64
    MM(Format('MinBlockSize                   %d',[VartoInt(FWbemObject.MinBlockSize)]));// Uint64
    MM(Format('Name                           %s',[VartoStr(FWbemObject.Name)]));// String
    MM(Format('NeedsCleaning                  %s',[VartoStr(FWbemObject.NeedsCleaning)]));// Boolean
    MM(Format('NumberOfMediaSupported         %d',[VartoInt(FWbemObject.NumberOfMediaSupported)]));// Uint32
    MM(Format('PNPDeviceID                    %s',[VartoStr(FWbemObject.PNPDeviceID)]));// String
//    MM(Format('PowerManagementCapabilities    %d',[VartoInt(FWbemObject.PowerManagementCapabilities)]));// Array of Uint16
      if not VarIsNull(FWbemObject.PowerManagementCapabilities) then
      begin
        Data := FWbemObject.PowerManagementCapabilities;
        for I:= VarArrayLowBound(data,1) to VarArrayHighBound(data,1) do
          MM('PowerManagementCapabilities: '+IntToStr(Data[I]));// Array of WORD /Uint16
      end;
    MM(Format('PowerManagementSupported       %s',[VartoStr(FWbemObject.PowerManagementSupported)]));// Boolean
    MM(Format('Status                         %s',[VartoStr(FWbemObject.Status)]));// String
    MM(Format('StatusInfo                     %d',[VartoInt(FWbemObject.StatusInfo)]));// Uint16
    MM(Format('SystemCreationClassName        %s',[VartoStr(FWbemObject.SystemCreationClassName)]));// String
    MM(Format('SystemName                     %s',[VartoStr(FWbemObject.SystemName)]));// String

    MM('---------------------------------------------------------------------');
    FWbemObject:=Unassigned;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

procedure TForm1.Button1Click(Sender: TObject);
const
  WbemUser            ='';
  WbemPassword        ='';
  WbemComputer        ='localhost';
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
  I : Integer;
  Data : array of WORD;
  params: OleVariant;
begin;
    MM('Win32_DiskDrive');
    MM('---------------');
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT Model,Capabilities,CapabilityDescriptions,Name FROM
Win32_DiskDrive','WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  while oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
      if not VarIsNull(FWbemObject.Capabilities) then
      begin
        Data := FWbemObject.Capabilities;
        for I:= VarArrayLowBound(data,1) to VarArrayHighBound(data,1) do
          MM('Capabilities: '+IntToStr(Data[I]));// Array of WORD /Uint16
      end;

      if not VarIsNull(FWbemObject.CapabilityDescriptions) then
      begin
        Params := FWbemObject.CapabilityDescriptions;
        for I:= VarArrayLowBound(Params,1) to VarArrayHighBound(Params,1) do
          MM('CapabilityDescriptions: '+ VarToStr(Params[I]));// Array of VarToStr
      end;

    MM(Format('Model                %s',[VarToStr(FWbemObject.Model)]));// String
    MM(Format('Name                 %s',[VarToStr(FWbemObject.Name)]));// String
    MM('-------------------------------------------------------------------');
    FWbemObject:=Unassigned;
  end;
end;