Registry 获得操作系统的序列号

//获得操作系统的序列号 

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);//Windows XP有效
var
  reg: TRegistry;
  result:string;
begin
  Result := '';
  reg := TRegistry.Create; //生成注册表对象
  with reg do
  begin
        RootKey := HKEY_LOCAL_MACHINE;
        OpenKey('Software\Microsoft\Windows\CurrentVersion', False);//打开注册表
        Result := ReadString('ProductID'); //得到序列号
  end;
  reg.Free;
  Self.caption:=result; //显示序列号
end;

通过 Wiz 发布