Помощь с реестром (перевести код с Delphi на Bulder C++)

[Ledoryb]

Здравствуйте, уважаемые программисты. Помогите пожалуйста перевести этот код на Bulder C++.

procedure TForm1.FormCreate(Sender: TObject);
begin
reg:= TRegistry.Create;
 reg.RootKey:= HKEY_CURRENT_USER;
 reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', False);
 if reg.ValueExists('NoDispBackgroundPage') then
  if reg.ReadInteger('NoDispBackgroundPage') = 1 then CheckBox1.Checked:= True;
 reg.CloseKey;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
 begin 
  reg:= TRegistry.Create; 
  reg.RootKey:= HKEY_CURRENT_USER;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True); 
  reg.WriteInteger('NoDispBackgroundPage', 1);
  reg.CloseKey;
 end else begin 
  reg:= TRegistry.Create;
  reg.RootKey:= HKEY_CURRENT_USER;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True);
  reg.WriteInteger('NoDispBackgroundPage', 0);
  reg.CloseKey;
end;

____
исходный код нужно форматировать тегами
модератор

[Serge_Bliznykov]

C++ Builder это родной брат Delphi, поэтому классы (VCL) одни и те же, соответственно, и методы одни и те же.
Только синтаксис чуть меняется (т.к. это всё же C++, а не паскаль).

посмотрите пример ЗДЕСЬ
и перепишите свой код ...

[Stilet]

 TRegistry* reg= new TRegistry();
 reg->RootKey= HKEY_CURRENT_USER;
 reg->OpenKey("Software\Microsoft\Windows\CurrentVersion\Policies\System", False);
 if (reg->ValueExists("NoDispBackgroundPage") )
  if (reg->ReadInteger("NoDispBackgroundPage") == 1) CheckBox1->Checked= True;
 reg->CloseKey;
 delete reg;

   TRegistry* reg= new TRegistry();
  reg->RootKey= HKEY_CURRENT_USER;
  reg->OpenKey("Software\Microsoft\Windows\CurrentVersion\Policies\System", True); 
if(Четтам){
  reg->WriteInteger("NoDispBackgroundPage", 1);
} else { 
  reg->WriteInteger("NoDispBackgroundPage", 0);
}
  reg->CloseKey;
delete reg;

Пример так )

[Ledoryb]

Спасибо большое. Только вот не понял с этим if(Четтам){ ?

[Stilet]

А я не понял что это за end else begin у тебя в исходнике )

[Ledoryb]

Хорошо, а как тогда написать в кнопке второй код?

[Stilet]

Ну наверное так как я показал )

[Ledoryb]

А что с if делать? Что туда писать?

[Stilet]

Я не знаю )
Я просто твой пример интерпретировал. Я не в курсе какие там условия должны быть, и откуда ты его вырвал. Ну явно это скетч, он даже не запустится. Откуда ты его взял то?

[Serge_Bliznykov]

Сообщение от Ledoryb

А что с if делать? Что туда писать?

у тебя кусок кода С ОШИБКОЙ, он в Delphi не откомпилируется.
Именно потому что ELSE есть, а IF - отсутствует.

Разбирайся либо с тем, откуда ты этот код взял (кто тебя нагло обманул),
либо с тем, что этот код должен делать, т.е. как его написать, чтобы он был корректен (соответствовал алгоритму).