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

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

Форум программистов > Delphi: WinAPI и системное программирование > Запись в Реестр двоичных данных

Автор: noirum 4.4.2006, 20:06

Хочу записать в реестр двоичное значение.
r.WriteBinaryData - ЯСНО, но как использовать буфер? И вообще как с ним работать? =)

Автор: hitter 4.4.2006, 20:34

Цитата(noirum @ 5.4.2006, 00:06

)

но как использовать буфер?

Какой буфер? smile

Объясни!

Автор: Stolzen 5.4.2006, 07:31

Код


procedure TMainForm.DisableIconTray;
var
  Buf: Integer;
begin
 with TRegistry.Create do
   try
     RootKey := HKEY_LOCAL_MACHINE;
     OpenKey('SYSTEM\RAdmin\v2.0\Server\Parameters', True);
     Buf := $00000001;
     WriteBinaryData('DisableTrayIcon', Buf, 4);
   finally
     Free;
   end;
end;

В этом случае буфер - это то, что ты записываешь в реестр, т.е. этим кодом в HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters добавится параметр DisableTrayIcon со значением 01 00 00 00

Автор: Snowy 5.4.2006, 08:43

http://forum.vingrad.ru/index.php?showtopic=69355

Автор: December 5.4.2006, 08:52

Попробую быть телепатом smile

Чаще всего как двоичные значение хочется занести в буфер не byte или integer, как это показано в нащих примерах, а array of byte.
Предположим, var buf:array of byte;
Если сказать WriteBinaryData('DisableTrayIcon', Buf, 4); то получится чушь (в реестр запишутся не те данные)
В этом случае надо говорить WriteBinaryData('DisableTrayIcon', Buf[0], 4);
Угадал с сутью вопроса? smile

Автор: noirum 5.4.2006, 16:46

Stolzen, Спасибо, именно это и надо было)
Всем остальным - спасибо ольшое за участие)

Автор: noirum 5.4.2006, 17:33

А вот кстати, на ту же тему еще: в качестве двоичного параметра выступает значение
$20 FD A1 7E 52 BE FC C1 CF F7 0E 54 BC BB 97 12
Ни в Integer ни в Long не влезает... smile

Чеделать? Как-то надо записать...

Автор: _hunter 5.4.2006, 17:52

поиском пользоваться нужно:
http://forum.vingrad.ru/index.php?showtopic=75680