获得硬盘序列号delphi源码

获得硬盘序列号 delphi源码 //获得硬盘序列号 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 n