TRegistry ???

← →
onix © (2002-04-29 14:07) [0]

Доброго дня всем. Знаю что подобные вопросы были, но поиск к сожалению не работает. Нужно запоминать установки для печати.
Пытаюсь сделать следующее:
procedure TFBlank.FormShow(Sender: TObject);
var R : TRegistry;
begin
R := TRegistry.Create;
R.RootKey := HKEY_LOCAL_MACHINE;
if not R.OpenKey("SizesPrint",true) then begin
R.CreateKey("SizesPrint");
R.CreateKey("SizesPrint\Surname");
end;
end;

В результате получаю Exception "Failed to create key SizesPrint", что не так и как с этим бороться.
И еще вопрос, можно ли заменить R.CreateKey на R.OpenKey("SizesPrint",true)

Заранее спасибо за помощь. Дмитрий

← →
Song © (2002-04-29 14:14) [1]

Вы не задали тип доступа к реестру.

← →
onix © (2002-04-29 14:22) [2]

to Song ©
Если не затруднит, то как его задать?

← →
Song © (2002-04-29 14:25) [3]

TRegistry.Access

← →
onix © (2002-04-29 14:27) [4]

to Song ©
Прописал строку Reg.Access := KEY_ALL_ACCESS; Эффект тот же.

Хотя в справке написано следующее:
Access is ignored by the CreateKey method, which always uses KEY_ALL_ACCESS.

?????

← →
Anatoly Podgoretsky © (2002-04-29 14:40) [5]

Вопрос попроще, а у тебя есть права?
И дполнительно R.CreateKey("SizesPrint") это лишнее, более того источник ошибки, возможно повиснет в воздухе создание R.CreateKey("SizesPrint\Surname");

to Anatoly Podgoretsky ©
Вопрос попроще, а у тебя есть права?
Да вроде права такие как у админа сети.

И дполнительно R.CreateKey("SizesPrint") это лишнее, более того источник ошибки, возможно повиснет в воздухе создание R.CreateKey("SizesPrint\Surname");

Т.е. нужно написать так:
procedure TFBlank.FormShow(Sender: TObject);
var R : TRegistry;
begin
R := TRegistry.Create;
R.RootKey := HKEY_LOCAL_MACHINE;
if not R.OpenKey("SizesPrint",true) then begin
R.OpenKey("SizesPrint",true);
R.OpenKey("SizesPrint\Surname",true);
end;
end;

А чем последний вариант отличается от первоначального?

Я тоже что то не обнаружил разницы в коде.
С правами просто разобраться, попробуй создать ключ с помощью regedit

TRegistry ??? Найти похожие ветки