如何用 DELPHI 获取 CPU 的序列号
在多CPU或多核CPU中，会随机的获得不同的序列号.这就为我们根据CPU序列号来制作注册机带来了很大的麻烦。
Windows 2000/XP允许设置进程和线程的关系。换句话说，可以控制哪个 CPU 能够运行某些线程。这称为Affinity Mask。Windows提供了设置相似性的函数SetProcessAffinityMask ，使用它可控制获取指定CPU的序列号。
1、如何获得cpu的序列号。
使用cpuid指令来获取。
在调用CPUID之前，EAX中存放的是功能代码。在调用CPUID之后，EAX,EBX,ECX,EDX存放的是CPU的各种特征信息。这些信息也就是我们通常所说的CPU序列号。
1、如何获得cpu的序列号?
我们可以使用使用CPUID指令来获取。
在调用CPUID之前，EAX中存放的是功能代码。在调用CPUID之后，EAX,EBX,ECX,EDX存放的是CPU的各种特征信息。这些信息也就是我们通常所说的CPU序列号。
MOV EAX, 0 //获取制造商信息
CPUID
Mov EAX, 1 //获得CPU的序列号
CPUID
下面将提供三个函数供参考：
function NewCPUID: string;
const
CPUINFO = 'CPU制造商: %S 序列号: %x';
var
s: array[0..19] of Char;
MyCpuID: Integer;
begin
FillChar(s, 20, 0);
asm
push ebx
push ecx
push edx
mov eax, 0
cpuid
mov dword ptr s[0], ebx
mov dword ptr s[4], edx
mov dword ptr s[8], ecx
mov eax, 1
cpuid
mov MyCpuID, edx
pop edx
pop ecx
pop ebx
end;
Result := Format(CPUINFO, [s, MyCpuID]);
end;
function GetCPUID: TCPUID; assembler; register;
asm
PUSH EBX {Save affected register}
PUSH EDI
MOV EDI, EAX [email={@Resukt]{@Resukt[/email]}
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
相关文档：
Delphi提供的字符串函数里有一个Pos函数，它的定义是：
function Pos(Substr: string; S: string): Integer;
它的作用是在字符串S中查找字符串Substr，返回值是Substr在S中第一次出现的位置，如果没有找到，返回值为0。
使用pos函数来查找字符第一次出现的位置
var
str1:string;
i,j:integer;
begin
str1:='dsf465 ......
关于delphi Assigned
1.根据 Delphi 指令参考手册中
说明：
Assigned 函式在参数不为nil时传回True,表示指针已经指到某个内存地址，这个内存地址可能是一个对象地首地址，也可能在函数或过程中，声明一个指针变量，没有赋值为nil ，无乱的指向某处，这两个种情况，Assigned（指针变量）都不为nil , 函数放回True；
而� ......
VCL对象不是线程安全的，而且它们的属性和方法必须要从VCL主线程中进行访问或被执行，但有两种VCL对象是例外的情况，它们是线程安全的。一种是任何图形对象，另一种是TThreadList。
这意味着不必非得在主VCL线程中才能设置一个画布的画笔颜色，或画刷类型，可以在另一个线程的环境中完成一点。对 ......
Delphi的VCL框架在创建应用时TApplication是一个自动创建的隐藏窗口，其它创建的窗口是自动以该窗口为窗口，这就导致创始的主窗口在任务栏的系统菜单只有三项，只要在主窗口的Create事件中将系统菜单用Application的系统菜单替换，并将SysCommand消息转发到主窗口就正常了。
unit Unit1;
interface
uses
Windows ......
破解方法都是用了盒子 Delphi.Distiller.v1.85
费话不多说
安装任意delphi 2010 正式版
序列号是 HAAL-DANSGN-FZR5AG-M3BS
安装完之后点击开始->Embarcadero RAD Studio 2010 ->Check for update
&nb ......
