Форум: "Сети";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Kross   (2004-10-16 19:28) [0]

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

---

← →
Rouse_ ©   (2004-10-17 12:20) [1]

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

 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

---

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

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

---

← →
Rouse_ ©   (2004-10-17 14:01) [3]

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

---

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

Форум: "Сети";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.034 c