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 ![]() 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. 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.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |