在delphi中如何获取cpu,硬盘,主板序列号? 请各位大侠指点迷津 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 cpu IDtype TCPUID = array[1..4] of Longint;function GetCPUID : TCPUID; assembler; register; //得到CPU序列号asm PUSH EBX {Save affected register} PUSH EDI MOV EDI,EAX {@Resukt} MOV EAX,1 DW $A20F {CPUID Command} STOSD {CPUID[1]} MOV EAX,EBX STOSD {CPUID[2]} MOV EAX,ECX STOSD {CPUID[3]} MOV EAX,EDX STOSD {CPUID[4]} POP EDI {Restore registers} POP EBXend; 两个DBCombobox组合使用 关于“试图吊销一个未注册的拖放目标”问题 View 和 Table的最本質的區別 如何在函数中写提示信息?是否可以? 关于获得几个当前网络信息的疑问??? 为一个广告公司做个软件不知道日期怎么实现? Delphi7的两简单问题!200分!在线等候! 在线等待,急,急,急!!! 高手请进 请教关于字符串比较的问题 MessageBox()提示信息怎样折行显示?(显示为两行) 福州可有DELPHI开发实习的地方 关于数据库中表状态的问题!!!!在线等待!!!
type
TCPUID = array[1..4] of Longint;function GetCPUID : TCPUID; assembler; register; //得到CPU序列号
asm
PUSH EBX {Save affected register}
PUSH EDI
MOV EDI,EAX {@Resukt}
MOV EAX,1
DW $A20F {CPUID Command}
STOSD {CPUID[1]}
MOV EAX,EBX
STOSD {CPUID[2]}
MOV EAX,ECX
STOSD {CPUID[3]}
MOV EAX,EDX
STOSD {CPUID[4]}
POP EDI {Restore registers}
POP EBX
end;