在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; 求线程池demo COM+ 调用COM+时 不能联接到数据库 delphi高手请进!寻求帮助[提供项目资金] DELPHI数据邦定的简单问题 数据库记录判断问题? 如何在画布上画一个带箭头的直线. QuickReport控件 在delphi中如何具体LoadLibrary,请各位高手提供全部使用说明 如何加快文件搜索速度。 交几个DELPHI方面朋友!精通通信和数据库方面 福州可有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;