Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Вниз

Registry.ReadBinaryData - как изменить ключ 


Wizard_Ex   (2001-10-26 16:10) [0]

В реестре ключ EnableAutodial = 01 00 00 00. Нужно его изменить на 00 00 00 00. Поможите люди добрые как енто сделать?
что-то типа...
procedure TForm1.EditRegs;
var Reg: TRegistry;
Buf : Double;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey("\Software\Microsoft\Windows\CurrentVersion\Internet Settings", False)
then
begin
Reg.ReadBinaryData("EnableAutodial",Buf, Sizeof(Buf)); считываю, надо сравнить: если 01 00 00 00 изменить на 00 00 00 00
???????????????
end;
finally
Reg.CloseKey;
Reg.Free;
end;
end;
а конкретно не знаю



Anatoly Podgoretsky   (2001-10-26 23:55) [1]

Buf : LongInt;
Ну числа то ты наверно умеешь сравнивать?

Но только с чего ты решил, что там двоичные данные?
Тип там dWord (ReadInteger)



Wizard_Ex   (2001-10-27 12:57) [2]

В регедите написано тип REG_BINARY ( ОС W2K),
может под другими ОС тип другой? - не смотрел не знаю
но с лонгинт попробую



Anatoly Podgoretsky   (2001-10-27 15:55) [3]

Я смотрел в 98



delphimun   (2001-10-29 12:17) [4]

WriteString



Wizard_Ex   (2001-10-30 17:16) [5]

С LongInt работает нормально везде. 2Anatoly Podgoretsky Большое Спасибо




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.016 c
4-19038           Tosov                 2001-09-13 11:44  2002.02.07  
Event Log


4-19022           Snake2000             2001-12-11 13:14  2002.02.07  
Как сделатьмагнит?


3-18720           kserg@ukr.net         2002-01-08 12:59  2002.02.07  
Нужен совет в подходах работы с БД


14-18978          vivus                 2001-12-17 16:36  2002.02.07  
Люди. по Дельфи есть сайт (этот). А про С++ (подобный на мастак.ру)?


1-18882           Gromozeka             2002-01-23 14:38  2002.02.07  
Печать договора