文件名称:获得硬盘序列号 delphi源码
文件大小:4KB
文件格式:TXT
更新时间:2014-08-28 06:48:21
获得硬盘序列号 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 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;