Проверка ключа в реестре

[Marsik]

Здравствуйте! Как можно проверить наличие ключа в ресстре и при его отсутствии сделать соответствующую запись, а если есть то ничего не трогать и оставить как есть. Вот так делаю запись:
var
reg: tregistry;
begin
reg := tregistry.create;
reg.rootkey:=hkey_local_machine;
reg.lazywrite := false;
reg.openkey('software\microsoft\win dows\currentversion\run',false);
reg.writestring('scvMhost', application. exename);
reg.closekey;
reg.free;

[Air]

Как можно проверить наличие ключа в ресстре и при его отсутствии сделать соответствующую запись, а если есть то ничего не трогать и оставить как есть.

if not reg.KeyExists('qwer') then //проверяем
 reg.openkey('qwer',true); // если нету - создаём

[Marsik]

а Я никак разобраться немогу! Можете привести с этим примером пожалуйста:

var
reg: tregistry;
begin
reg := tregistry.create;
reg.rootkey:=hkey_local_machine;
reg.lazywrite := false; 
reg.openkey('software\microsoft\windows\currentver sion\run',false);
reg.writestring('scvMhost', application. exename);
reg.closekey;
reg.free;

А то чтото не получается никак....

[mihali4]

А что, в хэлпе посмотреть про OPENKEY влом? Другие пусть лазят и пересказывают маленькому мальчику?

[Air]

Вот в этой функции

reg.openkey('software\microsoft\windows\currentversion\run',false);

Параметр false говорит нам о том, что если ветка не сеществует, то она не будет, ни создана, ни открыта.
Если поставить true то даже если ветка полностью не существует она всё равно будет создана и открыта.

Совет на будующее, таких вопросов на форуме около 1000, просто каждый по своему трактует вопрос.

Я в своё время изучил реестр, за 5-6 месецев и на форуме меня тогда небыло, это я к тому, что иногда стоит импровизировать, испытывать и добиваться результата собственными силами.

[Marsik]

Михалыч Ага..влом, т.к. Я заранее уверен, что если даже буду очень тщательно пытаться искать, то все равно ничего не найду либо не пойму на английском... Air огромное спасибо, в очередной раз помогли!

что иногда стоит импровизировать, испытывать и добиваться результата собственными силами.

ЭТО ТОЧНО!!!