| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

изменения значения бинарных данных в реестре

DelphiLexx ©   (2005-11-02 15:52:00) 

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

---

Zeqfreed   (2005-11-02 16:14:00) [1]

Digitman ©   (02.11.05 15:57) [1]
А можно повыёживаться на WinAPI? :)

procedure TForm1.Button1Click(Sender: TObject);
const
dataSize = 64;
var
 Key : hKey;
 data : Pointer;
 i : Integer;
begin
 if (RegOpenKeyEx(HKEY_CURRENT_USER, '', 0, KEY_WRITE, Key) = ERROR_SUCCESS) then begin
  GetMem(data, dataSize);

  Randomize();
  for i := 0 to dataSize do
   Byte(Pointer(Cardinal(data) + i)^) := Byte(Random(256));

  RegSetValueEx(Key, 'NewValueName', 0, REG_BINARY, data, dataSize);
  FreeMem(data);

  RegCloseKey(Key);
 end;
end;

---

Digitman   (2005-11-02 15:59:00) [2]

ну а если тебя интересуют примеры использования методов TRegistry.Read/WriteBinaryData, то выёживаться с темой вопроса резона не было)

---

Digitman   (2005-11-02 15:57:00) [3]

эти самые "данные" в реестре - в некотором роде ВСЕ являются бинарными... ибо ничего там, в реестре, кроме "нулей" и "единиц" нет.

---

Наверх