![]() |
eXeL@B —› Вопросы новичков —› Серийник Windows |
Посл.ответ | Сообщение |
|
Создано: 24 октября 2007 22:10 · Личное сообщение · #1 |
|
Создано: 25 октября 2007 05:32 · Личное сообщение · #2 винда хранит ID тут: "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductId" а сам серийник потом декодируется из этого ID... в аттаче код на вб ![]() ![]() |
|
Создано: 25 октября 2007 12:08 · Поправил: BaGiE · Личное сообщение · #3 Не совсем ;) Этот самый ProductId можно даже покилять или изменить как угодно - он отображается в свойствах системы так же как и RegisteredOwner, RegisteredOrganization, BuildLab и т.д. Зато там же есть DigitalProductId и LicenseInfo - вот это уже интереснее) Информация об установленном оборудовании (чтобы не активировать каждый раз лицензионную винду) хранится в файле %SYSTEMROOT%\System32\wpa.dbl Напоминалка активации читает данные отсюда - "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents" @ OOBETimer:REG_BINARY У Office данные хранятся где-то тут - "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Registration" (параметр DigitalProductID:REG_BINARY) (где 11.0 - версия офиса) ![]() |
|
Создано: 25 октября 2007 17:31 · Личное сообщение · #4 |
|
Создано: 25 октября 2007 22:18 · Личное сообщение · #5 |
|
Создано: 25 октября 2007 22:49 · Личное сообщение · #6 RegKeyGetBinary - Чтение из ключа данных типа binary. Происходит запись данных из реестра в буфер Buffer размером Count. На выходе у функции количество прочитанных байт. function RegKeyGetBinary( Key: HKey; const ValueName: String; var Buffer; Count: Integer ): Integer;
RegKeySetBinary - Запись в ключ данных типа Binary. function RegKeySetBinary( Key: HKey; const ValueName: String; const Buffer; Count: Integer ): Boolean;
Delphi-сила!!! ![]() ----- z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh ![]() |
|
Создано: 26 октября 2007 10:37 · Личное сообщение · #7 |
|
Создано: 27 октября 2007 03:04 · Личное сообщение · #8 |
![]() |
eXeL@B —› Вопросы новичков —› Серийник Windows |