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

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

Форум программистов > Delphi: Общие вопросы > Реестр

Автор: ShowMessage 15.12.2006, 00:08

Здрасте ещё раз!

Может кто даст пример пополнее чтения значения с типом (BINARY) из реестра и сохранением их в строковой переменной?

Автор: bems 15.12.2006, 02:27

Цитата(ShowMessage @ 15.12.2006, 00:08

)

BINARY) из реестра и сохранением их в строковой переменной

и облом на первом нуле. Не в строку пиши, а еще куда

Автор: ShowMessage 15.12.2006, 02:33

Цитата(bems @ 15.12.2006, 02:27)

Цитата(ShowMessage @ 15.12.2006, 00:08

)

BINARY) из реестра и сохранением их в строковой переменной

и облом на первом нуле. Не в строку пиши, а еще куда

посоветовать можеш куда сохранять? лучше если с примером будет...

Автор: Fedia 15.12.2006, 06:01

ShowMessage,

Код


var
  len: Integer;
  reg: TRegistry;
  ar: array [0..127] of Byte;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  if reg.OpenKey('\SOFTWARE\Test', false) then
  begin
    len:=reg.ReadBinaryData('testBin', ar, 128);
    ShowMessage('Считано ' + IntToStr(len) + ' байт данных из реестра');
    reg.CloseKey;
  end;
  FreeAndNil(reg);
end;

считываем данные из реестра в массив ar, длиной len байт.

Автор: ShowMessage 15.12.2006, 14:02

спасибо за пример "Fedia"=) вообщемто до этого я сам дошёл я навеное не так выразился в вопросе, нужно было прочитать эти данные и показать их в строкой в edit или memo.