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

Вниз

Реестр! Помогите!   Найти похожие ветки 

← →
Src_Crab   (2002-07-08 20:35) [0]

Помогите записать в реестр значение двоичного параметра.
Нужно записать: 20 00 00 00
А записывает: 01 00 00 00

//Запись. (вкл./выкл Автозапуска СD с данными.)
procedure SaveData;
var
Reg:TRegistry;
buf:DWord;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
if Reg.OpenKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer",False) then
if (Form1.Checkbox11.Checked) then
buf:=0 else buf:=1;
Reg.WriteBinaryData("NoDriveTypeAutoRun",buf,sizeof(buf));
Reg.CloseKey;
Reg.Free;
end;

А это на всякий случай, может, кому и згодится:

//Чтение. (вкл. Автозапуск СD с данными или нет.)
procedure ReadData;
var
Reg:TRegistry;
buf:DWord;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
if Reg.OpenKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer",False) then
if Reg.ValueExists("NoDriveTypeAutoRun") then
begin
Reg.ReadBinaryData("NoDriveTypeAutoRun",buf,sizeof(buf));
if buf=0 then
Form1.Checkbox11.Checked:=true
else Form1.Checkbox11.Checked:=false;
end;
Reg.CloseKey;
Reg.Free;
end;

---

← →
MsGuns ©   (2002-07-08 20:44) [1]

Выражение buf:=1; приведет именно к тому рез-ту, что и получается. См. Help по представлению Fixed (или Binary как вариант) в хэлпе по Паскалю

---

← →
Anatoly Podgoretsky ©   (2002-07-08 21:14) [2]

then buf:=0 else buf:=32;
Reg.WriteInteger("NoDriveTypeAutoRun",buf);

---

← →
Src_Crab   (2002-07-08 21:19) [3]

2Anatoly Podgoretsky

Огромное спасибо!!!!!!!!!

---

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

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

Наверх

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