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

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

Работа с сетевым реестром [D6, XP]

Aleksey Suslov ©   (2009-05-13 13:09:00) 

Возникла проблемка
Нужно на другом компьютере в реестре добавить запись
накатал процедурку

procedure TForm1.Button5Click(Sender: TObject);
var reg:TRegistry;
begin
   reg:=TRegistry.Create;
   reg.RootKey:=HKEY_USERS;
   if reg.RegistryConnect('\\8a-05') then
   begin
          showmessage('connected');
          reg.RootKey:=HKEY_LOCAL_MACHINE;
          if  reg.OpenKey('software\microsoft\Windows\СurrentVersion',false)   then showmessage('PathFind');
   reg.Writestring('Obana','obana');
   end;
   Reg.Destroy;
end;


Вроде все ок, подключается, заходит на ветку, но записи ни какие не делает..

---

Aleksey Suslov   (2009-05-13 14:49:00) [1]

Скомпилил маленькую программку... попробовал прочитать записи локально, читаются и пишутся номармально.

---

Aleksey Suslov   (2009-05-13 14:42:00) [2]

Пошел ребутнул комп :)
Записи призраки не пропали, но все равно не читаются и не видятся оператором reg.ValueExists. Новых записей не появилось. Уже незнаю что и предпринять :)

---

brother   (2009-05-13 14:32:00) [3]

тогда... ой)

---

Aleksey Suslov   (2009-05-13 14:18:00) [4]

Я под Админом, компьютеры равнопровные, одинаковые операционный системы.
Вот что заметил.. Те записи что я создал с помошью регедита удаленно на копьютере появляются (сходил проверил) но при попытке прочитать их удаленно возвращается пустая строка, соседние родные записи читаются.
Пробовал подключится к компу Win2000 server, даже родные записи возвращают пустую строчку, но записи регедитом делаются.

---

{RASkov}   (2009-05-13 13:57:00) [5]

> [5] Aleksey Suslov   (13.05.09 13:47)
> Читает, но не пишет.

Прав на запись нет?

---

Aleksey Suslov   (2009-05-13 13:47:00) [6]

if  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false) then
      begin
           showmessage('PathFind');
           reg.Writestring('Obana','obana');
           showmessage(reg.ReadString('egui'));
      end;

Читает, но не пишет.

Через регедит захожу на комп, могу удалять писать-записи...

---

brother   (2009-05-13 13:37:00) [7]

впрочем, пробуй что-либо прочитать удаленно, может всеж прав не хвататет?

---

brother   (2009-05-13 13:25:00) [8]

if  reg.OpenKey('software\microsoft\Windows\СurrentVersion',false) then
begin
 showmessage('PathFind');
 reg.Writestring('Obana','obana');
end;
так попробуй?

---

Aleksey Suslov   (2009-05-13 13:23:00) [9]

Чем смущает? это для примера... мне нужно строковый параметр ввести.

---

brother   (2009-05-13 13:10:00) [10]

> reg.Writestring('Obana','obana');

оч. смущает...

---

Наверх