VPF::изменения двоичных в реестре на Delphi

tricky

Дата 2.11.2005, 13:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 6.4.2005

Репутация: нет
Всего: нет

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

Это сообщение отредактировал(а) tricky - 2.11.2005, 14:17

Poseidon

Дата 2.11.2005, 17:38 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Вот, держи:

Код

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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1041
Регистрация: 17.10.2005

Репутация: нет
Всего: 48

Код


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

--------------------

datatalks.ru - анализ данных, статистика, машинное обучение

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »