Работа с реестром

[aesoem]

день добрый, странные вещи творятся...
Хочу сохранить настройки службы в реестре.
(Ранее держал настройки в ини, но возникали ошибки доступа к файлу при обновлении службы через апдейтер.)


перешел на реестр, и тут началось вообще удивительное...

Данные в непонятной мне последовательности пишутся\читаются из разных адресов реестра

HKEY_CURRENT_USER\SOFTWARE\имя программы

или

HKEY_USERS\.DEFAULT\Software\имя программы

Что за проделки деманов...

Код элементарный

Procedure SaveNewHash(hash:String);
var
reg:Treginifile;
begin
reg:=Treginifile.Create;
reg.OpenKey('Software',true);
reg.WriteString('hash','value',hash);
reg.Free;
end;

пытался через руткей ткнуть носом прогу в нужный раздел... Результата нет... Пишет куда хочет...

[_Dmitry]

Может так

reg.OpenKey('\Software\название_вашей_программы',true);

[FaTaL]

Как вариант используйте TRegistry и явно указываейте раздел ресстра, например: RootKey := HKEY_LOCAL_MACHINE;

[Replicant]

Procedure SaveNewHash(hash:String);
var
    reg:TRegistry;
begin
try
    reg:=TRegistry.Create;
    reg.rootKey:= HKEY_LOCAL_MACHINE;
    reg.OpenKey('Software\MyProgram',true);
    reg.WriteString('hash', hash);
    reg.CloseKey;
finally
    reg.Free;
end;
end;

[aesoem]

проблема была в том, что после сборки ехе срабатывало onCreate и читались\писались данные в HKEY_CURRENT_USER

После запуска службы, она уже работает от системы. и следовательно пишет в HKEY_USERS