Текущий архив: 2002.07.25;
Скачать: CL | DM;

Вниз

Как записать в реестр значения типа REG_BINARY?   Найти похожие ветки 

← →
V.Turecky   (2002-07-14 15:31) [0]

Добрый день.

Как записать в реестр значения типа REG_BINARY?

Если Checkbox1 отмечен, записать - 70 01 00 20
Если нет, записать - 40 01 00 20

procedure SaveData;
var
buf:DWord;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey("HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\ShellFolder", False) then
begin

if (Form1.Checkbox1.Checked) then
buf:=7 else buf:=4;
Reg.WriteBinaryData("Attributes",buf,sizeof(buf));

end;
Reg.CloseKey;
Reg.Free;
end;

---

← →
Anatoly Podgoretsky ©   (2002-07-14 15:50) [1]

buf:=$20000170 else buf:=$20000140;

---

← →
V.Turecky   (2002-07-14 16:45) [2]

Откуда Вы это знаете?
Может, где-то можно почитать об этом?
Заранее благодарен.

---

← →
Anatoly Podgoretsky ©   (2002-07-14 17:29) [3]

Я не знаю, ты сам привел эти номера, см.
Если Checkbox1 отмечен, записать - 70 01 00 20
Если нет, записать - 40 01 00 20

---

Страницы: 1 вся ветка

Текущий архив: 2002.07.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c