Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите с реестром [D7, WinXP]


medvedenator ©   (2006-01-24 12:19:00) 

Написал программу, которая под обычным application достает имя текущего пользователя из реестра, под service application раблотать не хочет, не достаёт имя, хотя скрипт тот же самый Кто может помочь???

s:='HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer';
 r:=Tregistry.Create;
 r.OpenKey(s,false);
 t:=r.ReadString('Logon User Name');
 //r.CloseKey;
 r.Destroy;;
 d:=GetLocalIP;
 ClientSocket1.Socket.SendText(d + ':' + t + ':');
 ClientSocket1.Active:=false;


fellix   (2006-01-24 13:31:00) [1]

Под сервисом у вас другой CURRENT USER, другое содержимое в HKEY_CURRENT_USER. А Logon User Name в указанной ветке просто отсутствует.


Desdechado   (2006-01-24 13:18:00) [2]

если сервис стартует до логона, то кого ты ожидаешь там увидеть?


Digitman   (2006-01-24 13:06:00) [3]


> не достаёт имя


Из приведенного кода это неочевидно.
Каковы аргументы ?


Rouse_   (2006-01-24 13:06:00) [4]

А GetUserName уже не в почете?


Наверх

Титульная страница Поиск, карта сайта Написать письмо