Форум: "Сети";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
ВнизСписок компов в сетке Найти похожие ветки
← →
BoxTer (2002-09-18 20:41) [0]Доброе время суток!
У меня такой вопрос: как я могу, например в TListBox запхать список всех компов в сети (или моей рабочей группы). Заранее благодарен.
← →
s002156Shurik (2002-09-18 23:09) [1]var
Buf : array[0..200] of TNetResource;
CompCount:Integer;
function FindAllComputers(Workgroup: string):Integer;
var
EnumHandle : THandle;
WorkgroupRS : TNetResource;
BufSize : Cardinal;
Entries : Cardinal;
Rest : Cardinal;
begin
CompCount := 0;
Workgroup := Workgroup + #0;
FillChar(WorkgroupRS, SizeOf(WorkgroupRS) , 0);
with WorkgroupRS do begin
dwScope := RESOURCE_GLOBALNET;
dwType := RESOURCETYPE_ANY;
dwDisplayType := RESOURCEDISPLAYTYPE_DOMAIN;
dwUsage := RESOURCEUSAGE_CONTAINER;
lpRemoteName := @Workgroup[1];
end;
WNetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,0,@WorkgroupRS,EnumHandle );
Entries := 200;
BufSize:=SizeOf(Buf);
Rest:=WNetEnumResource(EnumHandle,Entries,@Buf[0],BufSize);
if (Rest = NO_ERROR) and (Entries > 0) then CompCount:=Entries;
WNetCloseEnum( EnumHandle );
end; { Find All Computers }
Buf это массив сетевых ресурсов первый раз вызываеш функцию с параметром "" в buf получаеш список групп, потом вызываеш с параметром "имя группы" в buf получаеш компьютеры группы, потом вызываеш с параметром "имя компютера" в buf получаеш сетевые ресурсы (диски, принтеры.).
Все.!
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c