Кто знает как получить имена или модели жестких дисков

[falsebegin]

серавно ругается теперь на строках
// warning! change name for other drives: ex.: second drive '\\.\PhysicalDrive1\'
hDevice := CreateFile(PChar('\\.\PhysicalDrive '+IntToStr(HDDIndx)), GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0 );
end
else // Version Windows 95 OSR2, Windows 98
hDevice := CreateFile( '\\.\SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0 );
if hDevice=INVALID_HANDLE_VALUE then Exit;
try
FillChar(SCIP,SizeOf(TSendCmdInPara ms)-1,#0);
FillChar(aIdOutCmd,SizeOf(aIdOutCmd ),#0);
cbBytesReturned := 0;
// Set up data structures for IDENTIFY command.
with SCIP do
begin
cBufferSize := IDENTIFY_BUFFER_SIZE;
// bDriveNumber := 0;
with irDriveRegs do
begin
bSectorCountReg := 1;
bSectorNumberReg := 1;
// if Win32Platform=VER_PLATFORM_WIN32_NT then bDriveHeadReg := $A0
// else bDriveHeadReg := $A0 or ((bDriveNum and 1) shl 4);
bDriveHeadReg := $A0;
bCommandReg := $EC;
end;
end;
if not DeviceIoControl( hDevice, $0007c088, @SCIP, SizeOf(TSendCmdInParams)-1,
@aIdOutCmd, SizeOf(aIdOutCmd), cbBytesReturned, nil ) then Exit;
finally
CloseHandle(hDevice);
end;
with PIdSector(@IdOutCmd.bBuffer)^ do
begin
ChangeByteOrder(sModelNumber, SizeOf(sModelNumber) );
(PChar(@sModelNumber)+SizeOf(sModel Number))^ := #0;
Result := PChar(@sModelNumber);
end;
end;[/CODE] думаю весь код надо передалть под XE7

[Комиссар Катани]

Замените

if SysUtils.Win32Platform=VER_PLATFORM_WIN32_NT then

на

if Win32Platform=VER_PLATFORM_WIN32_NT then

Проверил на Embarcadero Delphi 10.2 Community Edition - компилируется. Но результат сомнительный после компиляции данного кода на новой версии Delphi. На Borland Delphi 6/7 - никаких проблем.

[falsebegin]

1111.jpg