Текущий архив: 2005.11.27;
Скачать: CL | DM;

Вниз

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

← →
DelphiLexx ©   (2005-11-02 15:52) [0]

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

---

← →
Digitman ©   (2005-11-02 15:57) [1]

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

---

← →
Digitman ©   (2005-11-02 15:59) [2]

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

---

← →
Zeqfreed ©   (2005-11-02 16:14) [3]

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;

---

Страницы: 1 вся ветка

Текущий архив: 2005.11.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.044 c