[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

28.02.2010, 23:43

alexey-m

Познающий

Регистрация: 15.07.2009

Сообщений: 71

Провел на форуме:
520157

Репутация: 35

Отправить сообщение для alexey-m с помощью ICQ

Цитата:

Сообщение от Андрей021

Этим кодом я записываю строковой параметр. что сдесь поправить, что бы записывался двоичный параметр REG_BINARY "Timeout"=hex:0a,00,00,00?

Код:

procedure RegWrite;
var
  reg: TRegistry;
  Bin: array[0..10] of Byte;
  I: Integer;
begin
  for i:= 0 to High(Bin) do Bin[i]:= i;

  reg:= TRegistry.Create(KEY_ALL_ACCESS);
  with Reg do
  try
    RootKey:= HKEY_CURRENT_USER;
    OpenKey('Software\my_sub_key', True);
    WriteInteger('Integer', I);
    WriteDate('Date', Now);
    WriteBinaryData('BinData', Bin, SizeOf(Bin));
    WriteString('String', 'String');
    WriteBool('Bool',True);
    Reg.WriteFloat('Float',2.366);
    CloseKey;
  finally
    Free;
  end;
end;

Последний раз редактировалось alexey-m; 01.03.2010 в 01:16..