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

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

Оперделение доступных ресурсво по названию компьютера

Kross ©   (2004-10-16 19:28:00) 

Столкнулся с проблемой.
Нужно определить доступные ресурсы по названию компьютера.
В статье http://www.delphimaster.ru/articles/netmon/index.htmlнаписано, но определение ресурсов другово компьютера не дает результатов. Работает только при значение nil.
Вообщем кто знает подскажите сабж.

---

Rouse_   (2004-10-17 14:01:00) [1]

> [2] Stef   (17.10.04 12:37)
Да незачто:)
Там кстати еще несколько такого же плана демок интересных есть...
Светую посмотреть :)

---

Stef   (2004-10-17 12:37:00) [2]

Просто огромное такое пасибо. В который раз я узнаю что то новое для себя из твоих программ

---

Rouse_   (2004-10-17 12:20:00) [3]

Работает, но только если у тебя есть права админа...
Если же их нет, то нужно использовать другую структуру...

 PShareInfo1 = ^_SHARE_INFO_1;
 _SHARE_INFO_1 = record
  shi1_netname: LMSTR;
  shi1_type: DWORD;
  shi1_remark: LMSTR;
 end;
 TShareInfo1 = _SHARE_INFO_1;

type
 TShareInfo1Array = array of TShareInfo1;
var
 entriesread, totalentries: DWORD;
 Info: Pointer;
 I: Integer;
 CompName: PWideChar;
begin
 CompName := StringToOleStr(GetCompName(FIP));
 if CompName = RES_UNKNOWN then Exit;
 FRes := TStringList.Create;
 try
   Fres.Add(CompName);
   if NetShareEnum(CompName, 1, Info, DWORD(-1), @entriesread,
     @totalentries, nil) = 0 then
   try
    if entriesread > 0 then
    begin
      for I := 0 to entriesread - 1 do
        FRes.Add(TShareInfo1Array(@(Info^))[I].shi1_netname);
      Synchronize(UpdateTree);
    end;
   finally
    NetApiBufferFree(Info);
   end;
 finally
   FRes.Free;
 end;

полный код здесь:

http://rouse.front.ru/1.rar

---

Наверх