Текущий архив: 2003.09.08;
Скачать: CL | DM;

Вниз

чтение реестра   Найти похожие ветки 

← →
lord   (2003-08-28 00:10) [0]

привет всем
народ подскажите как прочитать все записи в определенной ветви реестра
например есть ветв реестра (HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\lanmanserver\Shares)
в неи перечисленны расшаренные ресурсы
нужно получить список етих ресурсов (их имена )

---

← →
Rouse_ ©   (2003-08-28 00:51) [1]

procedure TForm1.FormCreate(Sender: TObject);
begin
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKeyReadOnly("Ключ") then
GetKeyNames(ListBox1.Items);
finally
CloseKey;
Free;
end;
end;

А шары получать нужно вот так: http://www.delphimaster.ru/articles/netmon/index.html

Желаю успехов

---

Страницы: 1 вся ветка

Текущий архив: 2003.09.08;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.012 c