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

Тема в разделе "Delphi", создана пользователем WinHack, 24 ноя 2016.

  1. WinHack
    Чтобы получить серийный номер 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 нравится это.