Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > изменения двоичных в реестре на Delphi

Автор: tricky 2.11.2005, 13:54

Нужен рабочий пример изменения двоичных данных в реестре.

Автор: Poseidon 2.11.2005, 17:38

Вот, держи:

Код

Uses Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
Buf: Byte;
begin
// присваимаем значение переменной Buf (т.е. то, что нужно занести в реестр)
Reg:= TRegistry.Create;
Reg.RootKey:= HKEY_LOCAL_MACHINE;
Reg.OpenKey('\SOFTWARE\MyProg', True);
Reg.WriteBinaryData('Bin',Buf,SizeOf(Buf));
Reg.Free;
end;

Данный код записывает в раздел HKEY_LOCAL_MACHINE\SOFTWARE\MyProg двоичные переметр Bin значение каторого берет из переменной Buf.

PS. А вообще лучше прочесть литературу по работе с реестром.

Автор: Stolzen 3.11.2005, 11:10

Код


var
  Buf: Integer;

Код


 with TRegistry.Create do
   try
     RootKey:=HKEY_LOCAL_MACHINE; //3
     OpenKey('SYSTEM\RAdmin\v2.0\Server\Parameters',true); //4
     Buf := $00000001;
     WriteBinaryData('DisableTrayIcon', Buf, 4);
   finally
     Free;
   end;

В итоге туда, куда мне нужно записывается 01 00 00 00