DELPHI中读取硬盘的物理序列号

最新推荐文章于 2020-06-10 21:26:44 发布

TianGuanLeiOK

最新推荐文章于 2020-06-10 21:26:44 发布

阅读量2.3k

点赞数

文章标签： delphi byte ide buffer integer windows

本文链接：https://blog.csdn.net/TianGuanLeiOK/article/details/98372

版权

这篇博客介绍了如何使用Delphi编程语言来读取硬盘的物理序列号。通过设备文件交互，发送IDENTIFY命令并解析响应数据，最终转换序列号的字节顺序，从而获取到硬盘的唯一标识。

摘要由CSDN通过智能技术生成

读取硬盘的物理序列号

//获得硬盘序列号
function GetIdeSerialNumber() : PChar; stdcall;
const
IDENTIFY_BUFFER_SIZE = 512;
type
TIDERegs = packed record
     bFeaturesReg: BYTE; // Used for specifying SMART "commands".
     bSectorCountReg: BYTE; // IDE sector count register
     bSectorNumberReg: BYTE; // IDE sector number register
     bCylLowReg: BYTE; // IDE low order cylinder value
     bCylHighReg: BYTE; // IDE high order cylinder value
     bDriveHeadReg: BYTE; // IDE drive/head register
     bCommandReg: BYTE; // Actual IDE command.
     bReserved: BYTE; // reserved for future use. Must be zero.
end;

TSendCmdInParams = packed record
    // Buffer size in bytes
    cBufferSize: DWORD;
    // Structure with drive register values.
    irDriveRegs: TIDERegs;
    // Physical drive number to send command t