Get name Drive Hardware - windows

Question

hello someone could help me how to get
the name of the drive / hardware / / 'C: \' 'D: \' .......
example
NameDrive function (const sDrive: string): string;
begin
  result: = GetDriveName (sDrive);
end;
Showmessage (NameDrive ('C: \')) / / = ST500DM0 ....
Thank you for attention.

Answer 1

It's possible to get vendor info by calling DeviceIoControl with IOCTL_STORAGE_QUERY_PROPERTY code (STORAGE_PROPERTY_QUERY PropertyId set to StorageDeviceProperty), or with SMART_ control codes, or by reading WMI data. in any case you should work with physical drives having names like \.\PhysicalDriveX rather than logical ones. These are 3 alternatives I can see at once.
Example of method 1 (type definitions taken from DDK):
type
STORAGE_PROPERTY_ID = (
StorageDeviceProperty,
StorageAdapterProperty,
StorageDeviceIdProperty,
StorageDeviceUniqueIdProperty, // See storduid.h for details
StorageDeviceWriteCacheProperty,
StorageMiniportProperty,
StorageAccessAlignmentProperty,
StorageDeviceSeekPenaltyProperty,
StorageDeviceTrimProperty,
StorageDeviceWriteAggregationProperty
);
STORAGE_QUERY_TYPE = (
PropertyStandardQuery, // Retrieves the descriptor
PropertyExistsQuery, // Used to test whether the descriptor is supported
PropertyMaskQuery, // Used to retrieve a mask of writeable fields in the descriptor
PropertyQueryMaxDefined // use to validate the value
);
STORAGE_PROPERTY_QUERY = packed record
PropertyId, // ID of the property being retrieved
QueryType : Cardinal; // Flags indicating the type of query being performed
AdditionalParameters : array [0..0] of AnsiChar; // Space for additional parameters if necessary
end;
STORAGE_DEVICE_DESCRIPTOR = packed record
Version,
Size : Cardinal;
DeviceType : Byte;
DeviceTypeModifier : Byte;
RemovableMedia,
CommandQueueing : Byte;
VendorIdOffset,
ProductIdOffset,
ProductRevisionOffset,
SerialNumberOffset : Cardinal;
BusType : Cardinal;
RawPropertiesLength : Cardinal;
RawDeviceProperties : array [0..0] of AnsiChar;
end;
const STORAGE_PROPERTY_QUERY_SIZE = 12;
function GetDriveModel(DrvHandle : THandle; var aModel : AnsiString; out ErrCode : Integer) : Boolean;
var PropQuery : STORAGE_PROPERTY_QUERY;
PropResponse : STORAGE_DEVICE_DESCRIPTOR;
PropResponseSize, i : Cardinal;
Buf : PByte;
begin
FillChar(PropQuery, STORAGE_PROPERTY_QUERY_SIZE, 0);
PropQuery.PropertyId := Cardinal(StorageDeviceProperty);
PropQuery.QueryType := Cardinal(PropertyStandardQuery);
Buf := GetMemory(4096);
Result := DeviceIoControl(DrvHandle, IOCTL_STORAGE_QUERY_PROPERTY, #PropQuery, STORAGE_PROPERTY_QUERY_SIZE, Buf, 4096, PropResponseSize, nil);
ErrCode := GetLastError;
if not Result then
begin
FreeMemory(buf);
Exit;
end;
PropResponse := (PSTORAGE_DEVICE_DESCRIPTOR(Buf))^;
if PropResponse.RawPropertiesLength <> 0 then
begin
aModel := '';
if PropResponse.VendorIdOffset <> 0 then
begin
i := PropResponse.VendorIdOffset;
while Buf[i] <> 0 do
begin
aModel := aModel + AnsiChar(Buf[i]);
Inc(i);
end;
end;
if PropResponse.ProductIdOffset <> 0 then
begin
aModel := aModel + ' ';
i := PropResponse.ProductIdOffset;
while Buf[i] <> 0 do
begin
aModel := aModel + AnsiChar(Buf[i]);
Inc(i);
end;
end;
end;
FreeMemory(buf);
end;
A drive should be opened this way:
Result := CreateFile(PWideChar(DrvName), GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
where DrvName is e.g. \\.\PhysicalDrive0 for 1st drive in the system.
Generally speaking, it's not possible to do what you want exactly, because a single volume, say, D:\ may be a dynamic one spanning several physical disks.