delphi非常好的 取得硬件ID

delphi非常好用的获得硬件ID。 uses u_MD5, Windows, ShellApi, Classes, SysUtils; {$I u_Const.pas} {$IFDEF NEWVER} //for Delphi2009 or higher function GetDllVer:PAnsiChar; stdcall; export; function GetHardwareID(HDD, NIC, CPU, BIOS: LongBool): PAnsiChar; stdcall; export; function GetHardwareID_vba(HDD, NIC, CPU, BIOS: LongBool; RegCode: PAnsiChar; retHardwareID: PAnsiChar): Integer; stdcall; export; function GetHardwareIDWithAppID(AppID: PAnsiChar; HDD, NIC, CPU, BIOS: LongBool): PAnsiChar; stdcall; export; function GetHardwareIDWithAppID_vba(AppID: PAnsiChar; HDD, NIC, CPU, BIOS: LongBool; RegCode: PAnsiChar; retHardwareID: PAnsiChar): Integer; stdcall; export; {$ELSE} //for delphi7/6/5 function GetDllVer:PChar; stdcall; export; function GetHardwareID(HDD, NIC, CPU, BIOS: LongBool): PChar; stdcall; export; function GetHardwareID_vba(HDD, NIC, CPU, BIOS: LongBool; RegCode: PChar; retHardwareID: PChar): Integer; stdcall; export; function GetHardwareIDWithAppID(AppID: PChar; HDD, NIC, CPU, BIOS: LongBool): PChar; stdcall; export; function GetHardwareIDWithAppID_vba(AppID: PChar; HDD, NIC, CPU, BIOS: LongBool; RegCode: PChar; retHardwareID: PChar): Integer; stdcall; export; {$ENDIF}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2014-08-20 12:24  取得硬件ID\
     目录           0  2014-08-20 12:24  取得硬件ID\AzSDK HardwareID DLL 3.30\
     目录           0  2014-08-20 12:24  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\
     目录           0  2014-08-20 12:24  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Example\
     目录           0  2014-08-20 12:24  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Example\Delphi2009-CallDLL\
     文件         188  2009-08-15 11:57  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Example\Delphi2009-CallDLL\Project1.dpr
     文件        5055  2009-08-15 11:57  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Example\Delphi2009-CallDLL\Project1.dproj
     文件      391168  2014-08-20 12:22  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Example\Delphi2009-CallDLL\Project1.exe
     文件         876  2009-08-15 11:57  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Example\Delphi2009-CallDLL\Project1.res
     文件        5502  2014-08-20 12:22  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Example\Delphi2009-CallDLL\Unit1.dcu
     文件        3753  2009-08-15 11:57  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Example\Delphi2009-CallDLL\Unit1.dfm
     文件        1721  2009-08-15 11:57  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Example\Delphi2009-CallDLL\Unit1.pas
     目录           0  2014-08-20 12:24  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Example\Delphi2009-WithoutDLL\
     文件         494  2009-08-15 11:57  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Example\Delphi2009-WithoutDLL\Project1.dpr
     文件        5381  2009-08-15 11:57  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Example\Delphi2009-WithoutDLL\Project1.dproj
     文件         876  2009-08-15 11:57  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Example\Delphi2009-WithoutDLL\Project1.res
     文件       85459  2009-08-15 11:57  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Example\Delphi2009-WithoutDLL\screenshot.png
     文件        3752  2009-08-15 11:57  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Example\Delphi2009-WithoutDLL\Unit1.dfm
     文件        1313  2009-08-15 11:57  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Example\Delphi2009-WithoutDLL\Unit1.pas
     文件        1701  2012-02-14 10:44  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Example\Example.pas
     目录           0  2014-08-20 12:24  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Help\
     文件       90669  2009-10-08 22:46  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Help\HardwareID.chm
     目录           0  2014-08-20 12:24  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Source\
     文件         434  2014-08-20 12:24  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Source\HardwareID.cfg
     文件      104448  2014-08-20 12:23  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Source\HardwareID.dll
     文件        2202  2014-08-20 12:24  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Source\HardwareID.dof
     文件        1034  2012-03-08 09:23  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Source\HardwareID.dpr
     文件       19863  2012-03-08 09:24  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Source\HardwareID.dproj
     文件        1600  2014-08-20 12:23  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Source\HardwareID.res
     文件        1034  2012-03-08 09:23  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Source\HardwareID.~dpr
     文件        7363  2014-08-20 12:22  取得硬件ID\AzSDK HardwareID DLL 3.30\AzSDK HardwareID DLL 3.30\Source\UnitIoctl.dcu
............此处省略16个文件信息