|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Проблема с реестром
Пишу службу и пытаюсь прочитать настройки из реестра
Код:
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; на выходе пусто, хотя данные естественно есть. Может есть какая-то особенность работы с реестром если пишешь службу? Последний раз редактировалось Admin, Сегодня в 10:32. |