• From: Россия
  • Registered: 2019-10-06
  • Posts: 74

Topic: Проверить присутствие раздела в реестре

Здравствуйте,  подскажите пожалуйста как проверить присутствие раздела в реестре


пишу данный код
Begin
reg := TRegistry.Create;
reg.Access := KEY_ALL_ACCESS;
reg.RootKey := HKEY_CURRENT_USER;
if reg.ReadString('YSN') = ''
then
begin
ShowMessage('Раздела нет');
reg.CloseKey;
reg.Free;
end;

if reg.ReadString('YSN') = 'YSN'
then
begin
ShowMessage('Раздел есть');
reg.CloseKey;
reg.Free;
end;
end.

и выводит сообщение Раздела нет (хотя раздел в реестре присутствует) не пойму что в данном коде не верно
Заранее спасибо

Языковая локализация ПО.
Локализа́ция програ́ммного обеспече́ния - процесс адаптации программного обеспечения к культуре какой-либо страны. Как частность — перевод пользовательского интерфейса, документации и сопутствующих файлов программного обеспечения с одного языка на другой.
  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Проверить присутствие раздела в реестре

var
reg:TRegistry;


procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
reg := TRegistry.Create;
reg.Access := KEY_ALL_ACCESS;
reg.RootKey := HKEY_CURRENT_USER;
if reg.KeyExists('SOFTWARE\Amazon\Lumberyard') then showmessage('Yes') else showmessage('No');
end;
  • From: Россия
  • Registered: 2019-10-06
  • Posts: 74

Re: Проверить присутствие раздела в реестре

Спасибо!

Языковая локализация ПО.
Локализа́ция програ́ммного обеспече́ния - процесс адаптации программного обеспечения к культуре какой-либо страны. Как частность — перевод пользовательского интерфейса, документации и сопутствующих файлов программного обеспечения с одного языка на другой.
  • From: Белгород
  • Registered: 2018-12-03
  • Posts: 657

Re: Проверить присутствие раздела в реестре

reg.Free;

Системы безопасности в Белгороде

vovka3003's Website