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

WinHack

Администратор
23 Фев 2015
2,664
1,913
bsfo.ru
Чтобы получить серийный номер 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;
 
Реакции: SarmaT72