Получение серийного номера Windows

Чтобы получить серийный номер Windows, мы будем использовать реестр:

Код:

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg : TRegistry;
begin
   Reg := TRegistry.Create;
   try
      Reg.RootKey := HKEY_Local_Machine;
      Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\',False);
      ShowMessage (Reg.ReadString('ProductID'));
   finally
      Reg.Free;
   end;
end;