硬件相关
一米制造
这个作者很懒,什么都没留下…
展开
-
获取CPU的ID号
program Project2;$APPTYPE CONSOLE}uses SysUtils, StrUtils, Windows; //注重,要加入这个文件type //CPUID 一共有4组,4组连接成串是世界唯一的,常用于软件注册 TCPUID = array[1..4] of Longint;function GetCPUID: TCPUID;转载 2008-09-07 00:02:00 · 1118 阅读 · 0 评论 -
枚举串口
procedure EnumComPorts(Ports: TStrings);var KeyHandle: HKEY; ErrCode, Index: Integer; ValueName, Data: string; ValueLen, DataLen, ValueType: DWORD; TmpPorts: TStringList;begin ErrCode := RegOpe转载 2008-09-07 12:38:00 · 743 阅读 · 0 评论