Пишу службу и пытаюсь прочитать настройки из реестра
Код:
var Registry: TRegistry;
Registry := TRegistry.Create;
Registry.RootKey := hkey_current_user;
Registry.OpenKey('software\BTS\LOGIN',true);
DM.OraSession1.server :=Registry.ReadString('SERVER');
DM.OraSession1.username :=Registry.ReadString('USERNAME');
DM.OraSession1.Password := Registry.ReadString('PASSWORD');
DM.OraSession1.Schema := Registry.ReadString('SCHEMA');
DM.ForMonitor.server :=Registry.ReadString('SERVER');
DM.ForMonitor.username :=Registry.ReadString('USERNAME');
DM.ForMonitor.Password := Registry.ReadString('PASSWORD');
DM.ForMonitor.Schema := Registry.ReadString('SCHEMA');
Registry.CloseKey;
на выходе пусто, хотя данные естественно есть. Может есть какая-то особенность работы с реестром если пишешь службу?