Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Запись в реестр, Как сделать чтоб добавлялась строка "FF FF" (REG_BINARY)? 
:(
    Опции темы
Teran
Дата 10.9.2005, 12:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3



Подскажите пожалуйста

такой код

Код

var
  s : string;
  Buff : Pointer;
  Reg : TRegistry;
  sz : integer;
begin
  s:='ffffffff';
  sz:=Length(s) div 2;
  Buff:=AllocMem(sz);
  try
    HexToBin(PChar(s), Buff, sz);
    Reg:=TRegistry.Create;
    try
      Reg.RootKey:=HKEY_CLASSES_ROOT;
      Reg.OpenKey('1dd', true);
      Reg.WriteBinaryData('bin_data', Buff, sz);
    finally
      Reg.Free;
    end;
  finally
    FreeMem(Buff);
  end;
end;


добавляет в реестр "E5 F5" (Если не ошибаюсь)

КАК сделать чтоб добавлялась Именно строка "FF FF" (REG_BINARY) ????????

Это сообщение отредактировал(а) Girder - 10.9.2005, 13:11


--------------------
Ни цего не понимаю
PM MAIL ICQ   Вверх
p0s0l
Дата 10.9.2005, 16:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112



Цитата
  Reg.WriteBinaryData('bin_data', Buff^, sz);



--------------------
С уважением, г-н Посол.
PM   Вверх
Гость_teran
Дата 12.9.2005, 07:43 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Спасибо p0s0l

все отлично заработало
  Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1066 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.