【文件属性】:
文件名称:delphi 硬盘cpu号bios号网卡号等
文件大小:12KB
文件格式:TXT
更新时间:2014-10-03 16:11:03
delphi ,cpu号、bios号、网卡号
elphi 获取硬盘序列号、cpu号、bios号、网卡号2010-08-08 11:27转载自 blackscreen最终编辑 jxq61delphi 获取硬盘 序列号
function GetIdeNum: String;
type
TSrbIoControl = packed record
HeaderLength : ULONG;
Signature : Array[0..7] of Char;
Timeout : ULONG;
ControlCode : ULONG;
ReturnCode : ULONG;
Length : ULONG;
end;
SRB_IO_CONTROL = TSrbIoControl;
PSrbIoControl = ^TSrbIoControl;
TIDERegs = packed record
bFeaturesReg : Byte;
bSectorCountReg : Byte;
bSectorNumberReg : Byte;
bCylLowReg : Byte;
bCylHighReg : Byte;
bDriveHeadReg : Byte;
bCommandReg : Byte;
bReserved : Byte;
end;
IDEREGS = TIDERegs;
PIDERegs = ^TIDERegs;
TSendCmdInParams = packed record
cBufferSize : DWORD;
irDriveRegs : TIDERegs;
bDriveNumber : Byte;
bReserved : Array[0..2] of Byte;
dwReserved : Array[0..3] of DWORD;
bBuffer : Array[0..0] of Byte;
end;
SENDCMDINPARAMS = TSendCmdInParams;
PSendCmdInParams = ^TSendCmdInParams;
网友评论
- 下载到的是个文本文档,而且代码在XE5上用不了
- cpuid都一样,不唯一
- BIOS获取不了
- 很好,起到作用了
- 这个获取的不准确呀,有的二部电脑获取的CPUID一样呀.