Ошибка при чтении двочных данных из реестра

← →
пионер (2004-10-11 20:15) [0]

Подскажите, почему тут возникает EAccessViolation ?

const RegBorland:String = "\Software\Borland\Delphi\6.0"; var Reg:TRegistry; Buf:array of Byte; BufSize:Integer; begin try Reg := TRegistry.Create; Reg.RootKey :=HKEY_CURRENT_USER; Reg.OpenKeyReadOnly(RegBorland); BufSize := Reg.GetDataSize("LM"); if BufSize <> -1 then SetLength(Buf,BufSize) else Exit; Reg.ReadBinaryData("LM",Buf,BufSize); finally Reg.CloseKey; Reg.Free; end; end;

← →
begin...end © (2004-10-11 20:20) [1]

Где "тут"?

← →
пионер (2004-10-11 20:29) [2]

begin...end © (11.10.04 20:20) [1]
Где "тут"?

Reg.ReadBinaryData("LM",Buf,BufSize);

По-моему все правильно...

← →
begin...end © (2004-10-11 20:31) [3]

И вообще - что это ты там собрался сделать? Очередной кулхацкер?

Для Delphi 7 я не вижу параметра LM в реестре, есть LMKEY и LMLIC, но это строковые параметры, так что и читать их надо соответственно.

Из описания метода ReadBinaryData:

If the Registry entry contains a known type (such as a string), ReadBinaryData raises an exception.

← →
пионер (2004-10-11 20:36) [4]

LM - двоичный и в Delphi 6 он есть. Я его привел в качестве примера. Ошибка возникает при чтении любого двочного параметра. почему?

← →
begin...end © (2004-10-11 20:41) [5]

А так:

Reg.ReadBinaryData("LM", Buf[0], BufSize);

?

← →
пионер (2004-10-11 20:49) [6]

Точно! Спасибо! :)

И ещё:
1. Reg := TRegistry.Create поставь перед try
2. Не забудь освободить память из-под Buf

Удачи!

Ошибка при чтении двочных данных из реестра Найти похожие ветки