delphi非常好用的获得硬件ID。
usesu_MD5,Windows,ShellApi,Classes,SysUtils;{$Iu_Const.pas}{$IFDEFNEWVER}//forDelphi2009orhigherfunctionGetDllVer:PAnsiChar;stdcall;export;functionGetHardwareID(HDD,NIC,CPU,BIOS:LongBool):PAnsiChar;stdcall;export;functionGetHardwareID_vba(HDD,NIC,CPU,BIOS:LongBool;RegCode:PAnsiChar;retHardwareID:PAnsiChar):Integer;stdcall;export;functionGetHardwareIDWithAppID(AppID:PAnsiChar;HDD,NIC,CPU,BIOS:LongBool):PAnsiChar;stdcall;export;functionGetHardwareIDWithAppID_vba(AppID:PAnsiChar;HDD,NIC,CPU,BIOS:LongBool;RegCode:PAnsiChar;retHardwareID:PAnsiChar):Integer;stdcall;export;{$ELSE}//fordelphi7/6/5functionGetDllVer:PChar;stdcall;export;functionGetHardwareID(HDD,NIC,CPU,BIOS:LongBool):PChar;stdcall;export;functionGetHardwareID_vba(HDD,NIC,CPU,BIOS:LongBool;RegCode:PChar;retHardwareID:PChar):Integer;stdcall;export;functionGetHardwareIDWithAppID(AppID:PChar;HDD,NIC,CPU,BIOS:LongBool):PChar;stdcall;export;functionGetHardwareIDWithAppID_vba(AppID:PChar;HDD,NIC,CPU,BIOS:LongBool;RegCode:PChar;retHardwareID:PChar):Integer;stdcall;export;{$ENDIF}
1