Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

12th
Июл

Только чтение ключей реестра

Posted by Chas under Delphi

программе использую процедуру идентификации, что бы в случае кражи программы не каждый мог её запустить, а именно декодировать текст.

Для этого я читаю данные из:
HKEY_LOCAL_MACHINE\HARDWARE\DESCRIP TION\System\CentralProcessor\0
Не только от туда, но…

Проблема в том, что на ХР всё было гуд, а Win7 не даёт доступ на чтение этих ключей. До тех пор, пока не запустишь прогу от имени админа.
Программа является текстовым редактором и запускать всегда с подтверждением текстовики не гуд.

veniside

просто класс TRegistry из дельфи по-умолчанию пытается открыть ключ со всеми правами
нужно использовать OpenKeyReadOnly() или назначать свойство Access перед открытием ключа:

program

  readReg;
{$APPTYPE CONSOLE}
uses

  Windows, Registry;
var

  reg: TRegistry;

begin

  reg := TRegistry.Create();

  reg.RootKey := HKEY_LOCAL_MACHINE;

  //

  // 0) does not work even for Admin without elevation

  reg.OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0\', false);

  writeln('0.Value: ', reg.ReadString('Identifier'));

  reg.CloseKey();

  //

  // 1) should work for everyone

  reg.OpenKeyReadOnly('HARDWARE\DESCRIPTION\System\CentralProcessor\0\');

  writeln('1.Value: ', reg.ReadString('Identifier'));

  reg.CloseKey();

  //

  // 2) should work for everyone

  reg.Access := KEY_QUERY_VALUE;

  reg.OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0\', false);

  writeln('2.Value: ', reg.ReadString('Identifier'));

  //

  reg.Free();

  //

  readln;

end.