Реестр! Помогите!

← →
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

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

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