| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как записать в реестр значения типа REG_BINARY?
V.Turecky © (2002-07-14 15:31:00)Добрый день.
Как записать в реестр значения типа 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 17:29:00) [1]Я не знаю, ты сам привел эти номера, см.
Если Checkbox1 отмечен, записать - 70 01 00 20
Если нет, записать - 40 01 00 20
V.Turecky (2002-07-14 16:45:00) [2]Откуда Вы это знаете?
Может, где-то можно почитать об этом?
Заранее благодарен.
Anatoly Podgoretsky (2002-07-14 15:50:00) [3]buf:=$20000170 else buf:=$20000140;
| |
