Get Hard Drive Serial Number Delphi how to#
Get Hard Drive Serial Number Delphi code#

If ((IsInfoAvailable = True) and (FSerialNumber '')) then Result := SerialNumberToString(FSerialNumber) If ((IsInfoAvailable = True) and (FSerialNumber '')) then Result := SerialNumberToCardinal(FSerialNumber)įunction THDDInfo.SerialNumberText: string If FFileHandle INVALID_HANDLE_VALUE thenįunction THDDInfo.SerialNumberInt: Cardinal If DeviceDescriptor.SerialNumberOffset 0 then

If DeviceDescriptor.ProductRevisionOffset 0 then If DeviceDescriptor.ProductIdOffset 0 then HexToBin(PChar(SerNum), SizeOf(Cardinal)) įunction SerialNumberToString(SerNum: String): String RawDeviceProperties: array of Byte įunction ByteToChar(const B: Byte): Char įunction SerialNumberToCardinal (SerNum: String): Cardinal STORAGE_DEVICE_DESCRIPTOR = packed record Property SerialNumber: string read FSerialNumber ĪdditionalParameters: array of Byte Property ProductRevision: string read FProductRevision Property ProductId: string read FProductId Property VendorId: string read FVendorId Property DriveNumber: Byte read FDriveNumber write SetDriveNumber Procedure SetDriveNumber(const Value: Byte) Writeln(Format('DriveNumber %d, %s: %s', )) Writeln('SerialNumberText: ', HDDInfo.SerialNumberText) Writeln('SerialNumberInt: ', HDDInfo.SerialNumberInt) Writeln('SerialNumber: ', HDDInfo.SerialNumber) Writeln('ProductRevision: ', HDDInfo.ProductRevision)

Writeln('ProductId: ', HDDInfo.ProductId) Procedure ReadPhysicalDriveInNTWithZeroRights () įor DriveNumber := 0 to MAX_IDE_DRIVES - 1 do Max number of drives assuming primary/secondary, master/slave topology I wrote some sample use for it: program DiskDriveSerialConsoleProject

Get Hard Drive Serial Number Delphi code#

Now you need someone to help you translate this C++ code to Delphi.Įdit: Found a Delphi unit that does this for you. The cool thing is that this C++ code works as a non-administrator user too! NET, which in turn was based on a link to Borland C++ code and article.

Get Hard Drive Serial Number Delphi how to#

Following the links in the question comments Sertac posted, I came across this interesting C++ question, where Fredou answered with a nice link to a codeproject example showing how to do this in.