Товарищи форумчане, подскажите как в Delphi можно получить SMART диска SSD?
Для не IDE-дисков, вывод информации в Memo1, я использовал такой код:
unit Unit1;
interface
uses
Windows, SMART, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdMultipartFormData, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
IdHTTP: TIdHTTP;
function SMART_DoIDENTIFY(hSMARTIOCTL: THandle; pSCIP: PSENDCMDINPARAMS; pSCOP: PSENDCMDOUTPARAMS; bIDCmd: BYTE; bDriveNum: BYTE): BOOL;
function SMART_DoEnableSMART(hSMARTIOCTL: THandle; pSCIP: PSENDCMDINPARAMS; pSCOP: PSENDCMDOUTPARAMS; bDriveNum: BYTE): BOOL;
function SMART_DoReadAttributesCmd(hSMARTIOCTL: THandle; pSCIP: PSENDCMDINPARAMS; pSCOP: PSENDCMDOUTPARAMS; bDriveNum: BYTE): BOOL;
function SMART_DoReadThresholdsCmd(hSMARTIOCTL: THandle; pSCIP: PSENDCMDINPARAMS; pSCOP: PSENDCMDOUTPARAMS; bDriveNum: BYTE): BOOL;
function SMART_OpenSMART(DrvNum:Byte): THandle;
function SMART_GetVersionSMART(hSMARTIOCTL: THandle):TGetVersionOutParams;
procedure SMART_DoPrintData(pAttrBuffer: PCHAR; pThrsBuffer: PCHAR);
procedure SMART_ChangeByteOrder(szString: PCHAR; uscStrSize: USHORT);
procedure GET_INFO_SMART;
procedure Button1Click(Sender: TObject);
procedure reporting(txt:String);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1 : TForm1;
CurrentHandle : THandle;
OSVersionInfo : TOSVersionInfo;
// Определение глобальных буферов.
AttrOutCmd : array [0..(sizeof(SENDCMDOUTPARAMS)-1)+(READ_ATTRIBUTE_BUFFER_SIZE-1)] of BYTE;
ThreshOutCmd : array [0..(sizeof(SENDCMDOUTPARAMS)-1)+(READ_THRESHOLD_BUFFER_SIZE-1)] of BYTE;
IdOutCmd : array [0..(sizeof(SENDCMDOUTPARAMS)-1)+(IDENTIFY_BUFFER_SIZE-1)] of BYTE;
implementation
{$R *.dfm}
// *****************************************************************************
// ** DoIDENTIFY
// **
// ** Назначение: Посылает диску команду IDENTIFY
// ** bDriveNum = 0-3
// ** bIDCmd = IDE_ID_FUNCTION или IDE_ATAPI_ID
// *****************************************************************************
function TForm1.SMART_DoIDENTIFY(hSMARTIOCTL: THandle; pSCIP: PSENDCMDINPARAMS; pSCOP: PSENDCMDOUTPARAMS; bIDCmd: BYTE; bDriveNum: BYTE): BOOL;
var
lpcbBytesReturned : DWORD;
begin
pSCIP.cBufferSize := IDENTIFY_BUFFER_SIZE;
pSCIP.irDriveRegs.bFeaturesReg := 0;
pSCIP.irDriveRegs.bSectorCountReg := 1;
pSCIP.irDriveRegs.bSectorNumberReg := 1;
pSCIP.irDriveRegs.bCylLowReg := 0;
pSCIP.irDriveRegs.bCylHighReg := 0;
pSCIP.irDriveRegs.bDriveHeadReg := $A0 OR ((bDriveNum AND 1) SHL 4);// Вычисляем номер накопителя.
pSCIP.irDriveRegs.bCommandReg := bIDCmd;// Команда может идентифицировать IDE или ATAPI.
pSCIP.bDriveNumber := bDriveNum;
result := DeviceIoControl(hSMARTIOCTL,DFP_RECEIVE_DRIVE_DATA,pSCIP,sizeof(SENDCMDINPARAMS)-1,pSCOP,sizeof(SENDCMDOUTPARAMS)+IDENTIFY_BUFFER_SIZE-1,lpcbBytesReturned,nil);
end;
// *****************************************************************************
// ** DoEnableSMART
// ** Назначение: Посылает диску команду SMART_ENABLE_SMART_OPERATIONS
// ** bDriveNum = 0-3
// *****************************************************************************
function TForm1.SMART_DoEnableSMART(hSMARTIOCTL: THandle; pSCIP: PSENDCMDINPARAMS; pSCOP: PSENDCMDOUTPARAMS; bDriveNum: BYTE): BOOL;
var
lpcbBytesReturned : DWORD;
begin
pSCIP.cBufferSize := 0;
pSCIP.irDriveRegs.bFeaturesReg := SMART_ENABLE_SMART_OPERATIONS;
pSCIP.irDriveRegs.bSectorCountReg := 1;
pSCIP.irDriveRegs.bSectorNumberReg := 1;
pSCIP.irDriveRegs.bCylLowReg := SMART_CYL_LOW;
pSCIP.irDriveRegs.bCylHighReg := SMART_CYL_HI;
pSCIP.irDriveRegs.bDriveHeadReg := $A0 OR ((bDriveNum AND 1) SHL 4);// Вычисляем номер накопителя.
pSCIP.irDriveRegs.bCommandReg := IDE_EXECUTE_SMART_FUNCTION;
pSCIP.bDriveNumber := bDriveNum;
result := DeviceIoControl(hSMARTIOCTL,DFP_SEND_DRIVE_COMMAND,pSCIP,sizeof(SENDCMDINPARAMS)-1,pSCOP,sizeof(SENDCMDOUTPARAMS)-1,lpcbBytesReturned,nil);
end;
// *****************************************************************************
// ** DoReadAttributesCmd
// ** Назначение: Посылает диску команду SMART_READ_ATTRIBUTE_VALUES
// ** bDriveNum = 0-3
// *****************************************************************************
function TForm1.SMART_DoReadAttributesCmd(hSMARTIOCTL: THandle; pSCIP: PSENDCMDINPARAMS; pSCOP: PSENDCMDOUTPARAMS; bDriveNum: BYTE): BOOL;
var
cbBytesReturned : DWORD;
begin
pSCIP.cBufferSize := READ_ATTRIBUTE_BUFFER_SIZE;
pSCIP.irDriveRegs.bFeaturesReg := SMART_READ_ATTRIBUTE_VALUES;
pSCIP.irDriveRegs.bSectorCountReg := 1;
pSCIP.irDriveRegs.bSectorNumberReg := 1;
pSCIP.irDriveRegs.bCylLowReg := SMART_CYL_LOW;
pSCIP.irDriveRegs.bCylHighReg := SMART_CYL_HI;
pSCIP.irDriveRegs.bDriveHeadReg := $A0 OR ((bDriveNum AND 1) SHL 4);// Вычисляем номер накопителя.
pSCIP.irDriveRegs.bCommandReg := IDE_EXECUTE_SMART_FUNCTION;
pSCIP.bDriveNumber := bDriveNum;
result := DeviceIoControl(hSMARTIOCTL,DFP_RECEIVE_DRIVE_DATA,pSCIP,sizeof(SENDCMDINPARAMS)-1,pSCOP,sizeof(SENDCMDOUTPARAMS)+READ_ATTRIBUTE_BUFFER_SIZE-1,cbBytesReturned,nil);
end;
// *****************************************************************************
// ** DoReadThresholdsCmd
// ** Назначение: Посылает диску команду SMART_READ_ATTRIBUTE_THRESHOLDS
// ** bDriveNum = 0-3
// *****************************************************************************
function TForm1.SMART_DoReadThresholdsCmd(hSMARTIOCTL: THandle; pSCIP: PSENDCMDINPARAMS; pSCOP: PSENDCMDOUTPARAMS; bDriveNum: BYTE): BOOL;
var
cbBytesReturned : DWORD;
begin
pSCIP.cBufferSize := READ_THRESHOLD_BUFFER_SIZE;
pSCIP.irDriveRegs.bFeaturesReg := SMART_READ_ATTRIBUTE_THRESHOLDS;
pSCIP.irDriveRegs.bSectorCountReg := 1;
pSCIP.irDriveRegs.bSectorNumberReg := 1;
pSCIP.irDriveRegs.bCylLowReg := SMART_CYL_LOW;
pSCIP.irDriveRegs.bCylHighReg := SMART_CYL_HI;
pSCIP.irDriveRegs.bDriveHeadReg := $A0 OR ((bDriveNum AND 1) SHL 4);// Вычисляем номер накопителя.
pSCIP.irDriveRegs.bCommandReg := IDE_EXECUTE_SMART_FUNCTION;
pSCIP.bDriveNumber := bDriveNum;
result := DeviceIoControl(hSMARTIOCTL,DFP_RECEIVE_DRIVE_DATA,pSCIP,sizeof(SENDCMDINPARAMS)-1,pSCOP,sizeof(SENDCMDOUTPARAMS)+READ_THRESHOLD_BUFFER_SIZE-1, cbBytesReturned,nil);
end;
// *****************************************************************************
// ** DoPrintData
// ** FUNCTION: Отображает атрибуты и пороговые значения SMART
// *****************************************************************************
procedure TForm1.SMART_DoPrintData(pAttrBuffer: PCHAR; pThrsBuffer: PCHAR);
var
i, z : integer;
pDA : PDRIVEATTRIBUTE;
pAT : PATTRTHRESHOLD;
s : STRING;
begin
// Выводим информацию: идентификатор и название атрибута, его текущее и пороговое значение
pDA:= PDRIVEATTRIBUTE(@pAttrBuffer[2]);
pAT:= PATTRTHRESHOLD(@pThrsBuffer[2]);
FOR i:=0 TO NUM_ATTRIBUTE_STRUCTS-1 DO BEGIN
IF(pDA.bAttrID <> 0) THEN BEGIN
s := '';
for z:= 5 downto 0 do s := s + IntToStr(pDA.bRawValue[z]);
Memo1.Lines.Add('raw'+#$9+inttostr(pDA.bAttrID)+#$9+inttostr(pDA.bAttrValue)+#$9+inttostr(pAT.bWarrantyThreshold)+#$9+inttostr(pDA.bWorstValue)+#$9+'##'+#$9+IntToStr(pDA.bRawValue[5])+#$9+IntToStr(pDA.bRawValue[4])+#$9+IntToStr(pDA.bRawValue[3])+#$9+IntToStr(pDA.bRawValue[2])+#$9+IntToStr(pDA.bRawValue[1])+#$9+IntToStr(pDA.bRawValue[0])+#$9+s);
END;
inc(pDA);
inc(pAT);
END;
end;
// *****************************************************************************
// ** Меняем WORD-массив на BYTE-массив ****************************************
// *****************************************************************************
procedure TForm1.SMART_ChangeByteOrder(szString: PCHAR; uscStrSize: USHORT);
var
i : USHORT;
temp : CHAR;
begin
i := 0;
WHILE i<uscStrSize DO BEGIN
temp := szString[i];
szString[i] := szString[i+1];
szString[i+1] := temp;
i:= i + 2;
END;
end;
// *****************************************************************************
// ** Открываем дескриптор(хэндл) SMART для операций посредством DeviceIoControl.
// *****************************************************************************
function TForm1.SMART_OpenSMART(DrvNum:Byte): THandle;
var
hSMARTIOCTL : THandle;
begin
IF OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT THEN BEGIN // Windows NT, Windows 2000
hSMARTIOCTL := CreateFile(PChar('\\.\PhysicalDrive'+inttostr(DrvNum)),GENERIC_READ OR GENERIC_WRITE,FILE_SHARE_READ OR FILE_SHARE_WRITE,nil,OPEN_EXISTING,0,0);
END
ELSE BEGIN // Windows 95 OSR2, Windows 98
hSMARTIOCTL := CreateFile('\\.\SMARTVSD',0,0,nil,CREATE_NEW,0,0);
IF hSMARTIOCTL = INVALID_HANDLE_VALUE THEN reporting('Невозможно открыть SMARTVSD, код ошибки: '+inttostr(GetLastError)+' - '+SysErrorMessage(GetLastError))
END;
result:= hSMARTIOCTL;
end;
// *****************************************************************************
// *****************************************************************************
// *****************************************************************************
function TForm1.SMART_GetVersionSMART(hSMARTIOCTL: THandle):TGetVersionOutParams;
var
VersionParams : TGetVersionOutParams;
cbBytesReturned : DWORD;
begin
ZeroMemory(@VersionParams,sizeof(TGetVersionOutParams));
IF NOT DeviceIoControl(hSMARTIOCTL,DFP_GET_VERSION,nil,0,@VersionParams,sizeof(VersionParams),cbBytesReturned,nil) THEN reporting(SysErrorMessage(GetLastError));
result:=VersionParams;
end;
// *****************************************************************************
// *****************************************************************************
// *****************************************************************************
procedure TForm1.GET_INFO_SMART;
var
hSMARTIOCTL : THandle;
i : integer;
VersionParams : TGetVersionOutParams;
bIDCmd, bDfpDriveMap : BYTE; // Команда идентификации IDE или ATAPI
scip : TSendCmdInParams;
OutCmd : TSendCmdOutParams;
bSuccess : bool;
pids : PIDSECTOR;
begin
OSVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo);
GetVersionEx(OSVersionInfo);
bDfpDriveMap := 0;
CurrentHandle := SMART_OpenSMART(0);
// Получаем версию и т.п. SMART IOCTL
VersionParams := SMART_GetVersionSMART(CurrentHandle);
FOR i := 0 TO MAX_IDE_DRIVES-1 DO BEGIN
Memo1.Lines.Add(IntToStr(i));
hSMARTIOCTL := SMART_OpenSMART(i);
// Если устройство с номером "i" - IDE, передаём ему команды.
IF VersionParams.bIDEDeviceMap SHR i AND 1=1 THEN BEGIN
// Игнорируем ATAPI-устройства.
IF VersionParams.bIDEDeviceMap SHR i AND $10=0 THEN BEGIN
ZeroMemory(@scip,sizeof(scip));
ZeroMemory(@OutCmd,sizeof(OutCmd));
// Пытаемся активировать SMART.
IF SMART_DoEnableSMART(hSMARTIOCTL,@scip,@OutCmd,i) THEN BEGIN
// Помечаем диск, как накопитель с активным SMART
bDfpDriveMap := bDfpDriveMap OR (1 SHL i);
// Теперь получаем ID сектора для всех устройств IDE в системе.
// Если устройство - ATAPI, используем команду IDE_ATAPI_ID,
// в противном случае используем команду IDE_ID_FUNCTION.
IF VersionParams.bIDEDeviceMap SHR i AND $10=1 THEN bIDCmd := IDE_ATAPI_ID
ELSE bIDCmd := IDE_ID_FUNCTION;
ZeroMemory(@scip,sizeof(scip));
ZeroMemory(@IdOutCmd,sizeof(IdOutCmd));
IF SMART_DoIDENTIFY(hSMARTIOCTL,@scip,PSENDCMDOUTPARAMS(@IdOutCmd),bIDCmd,i) THEN BEGIN
pids := @PSENDCMDOUTPARAMS(@IdOutCmd).bBuffer;
SMART_ChangeByteOrder(pids.sModelNumber,sizeof(pids.sModelNumber));
SMART_ChangeByteOrder(pids.sFirmwareRev,sizeof(pids.sFirmwareRev));
SMART_ChangeByteOrder(pids.sSerialNumber,sizeof(pids.sSerialNumber));
Memo1.Lines.Add('disk_1#'+inttostr(i)+'#'+trim(pids.sModelNumber)+'#'+trim(pids.sFirmwareRev)+'#'+trim(pids.sSerialNumber+'#'));
END
ELSE reporting('Команда Identify не выполнена на диске: '+inttostr(i)+#10#13+'DriverStatus: bDriverError = '+inttostr(PSENDCMDOUTPARAMS(@IdOutCmd).DriverStatus.bDriverError)+', bIDEStatus = '+inttostr(PSENDCMDOUTPARAMS(@IdOutCmd).DriverStatus.bIDEStatus));
END
ELSE reporting('Команда запуска S.M.A.R.T. не выполнена, диск: '+inttostr(i)+#10#13+'DriverStatus: bDriverError = '+inttostr(OutCmd.DriverStatus.bDriverError)+', bIDEStatus = '+inttostr(OutCmd.DriverStatus.bIDEStatus));
END;
END;
END;
// Перебираем все возможные IDE-приводы и посылаем команды тем, которые поддерживают SMART.
FOR i := 0 TO MAX_IDE_DRIVES-1 DO BEGIN
IF bDfpDriveMap SHR i AND 1=1 THEN BEGIN
ZeroMemory(@AttrOutCmd,sizeof(AttrOutCmd));
ZeroMemory(@ThreshOutCmd,sizeof(ThreshOutCmd));
bSuccess := SMART_DoReadAttributesCmd(CurrentHandle,@scip,PSENDCMDOUTPARAMS(@AttrOutCmd),i);
IF bSuccess=false THEN reporting('Ошибка при выполнении команды чтения атрибутов S.M.A.R.T. на диске: '+inttostr(i)+#10#13+'DriverStatus: bDriverError = '+inttostr(PSENDCMDOUTPARAMS(@AttrOutCmd).DriverStatus.bDriverError)+', bIDEStatus = '+inttostr(PSENDCMDOUTPARAMS(@AttrOutCmd).DriverStatus.bIDEStatus))
// Команда чтения атрибутов выполнена успешно. Пытаемся прочитать пороговые значения атрибутов.
ELSE
IF NOT SMART_DoReadThresholdsCmd(CurrentHandle,@scip,PSENDCMDOUTPARAMS(@ThreshOutCmd),i) THEN reporting('Ошибка при выполнении команды чтения пороговых значений атрибутов S.M.A.R.T. на диске: '+inttostr(i)+#10#13+'DriverStatus: bDriverError = '+inttostr(PSENDCMDOUTPARAMS(@ThreshOutCmd).DriverStatus.bDriverError)+', bIDEStatus = '+inttostr(PSENDCMDOUTPARAMS(@ThreshOutCmd).DriverStatus.bIDEStatus));
// Если функции DoReadAttributesCmd и DoReadThresholdsCmd выполнены успешно,
// процедура DoPrintData выводит оба значения атрибутов. Если DoReadThresholdsCmd
// не поддерживается, выводятся только текущие значения атрибутов
IF bSuccess<>false THEN SMART_DoPrintData(@PSENDCMDOUTPARAMS(@AttrOutCmd).bBuffer,@PSENDCMDOUTPARAMS(@ThreshOutCmd).bBuffer);
end;
END;
end;
// *****************************************************************************
// *****************************************************************************
// *****************************************************************************
procedure TForm1.Button1Click(Sender: TObject);
begin
GET_INFO_SMART;
end;
end.
Для IDE/ATAPI устройств информацию показывает отлично, но для SSD полный голяк. Как исправить? Подскажите, направьте, дайте ссылку :)