VPF::Получение IP адресов всех компьютеров в рабочей группе

Poseidon

Дата 18.5.2005, 22:40 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 4
Всего: 133

Код

var  
  Computer: array[1..500] of string[25];  
  ComputerCount: Integer;  

procedure FindAllComputers(Workgroup: string);  
var  
  EnumHandle: THandle;  
  WorkgroupRS: TNetResource;  
  Buf: array[1..500] of TNetResource;  
  BufSize: Integer;  
  Entries: Integer;  
  Result: Integer;  
begin  
  ComputerCount := 0;  
  Workgroup := Workgroup + #0;  
  FillChar(WorkgroupRS, SizeOf(WorkgroupRS), 0);  
  with WorkgroupRS do  
    begin  
      dwScope := 2;  
      dwType := 3;  
      dwDisplayType := 1;  
      dwUsage := 2;  
      lpRemoteName := @Workgroup[1];  
    end;  
  WNetOpenEnum(RESOURCE_GLOBALNET,  
    RESOURCETYPE_ANY,  
    0,  
    @WorkgroupRS,  
    EnumHandle);  
  repeat  
    Entries := 1;  
    BufSize := SizeOf(Buf);  
    Result :=  
      WNetEnumResource(EnumHandle,  
      Entries,  
      @Buf,  
      BufSize);  
    if (Result = NO_ERROR) and (Entries = 1) then  
      begin  
        Inc(ComputerCount);  
        Computer[ComputerCount] := StrPas(Buf[1].lpRemoteName);  
      end;  
  until (Entries <> 1) or (Result <> NO_ERROR);  
  WNetCloseEnum(EnumHandle);  
end; { Find All Computers }

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »