Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 574

•  TDictionary Custom Sort  6 592

•  Fast Watermark Sources  6 360

•  3D Designer  9 312

•  Sik Screen Capture  6 697

•  Patch Maker  7 074

•  Айболит (remote control)  7 080

•  ListBox Drag & Drop  5 948

•  Доска для игры Реверси  97 469

•  Графические эффекты  7 283

•  Рисование по маске  6 578

•  Перетаскивание изображений  5 449

•  Canvas Drawing  5 818

•  Рисование Луны  5 529

•  Поворот изображения  5 054

•  Рисование стержней  3 613

•  Paint on Shape  2 857

•  Генератор кроссвордов  3 739

•  Головоломка Paletto  3 013

•  Теорема Монжа об окружностях  3 821

•  Пазл Numbrix  2 514

•  Заборы и коммивояжеры  3 213

•  Игра HIP  2 178

•  Игра Go (Го)  2 109

•  Симулятор лифта  2 492

•  Программа укладки плитки  2 142

•  Генератор лабиринта  2 623

•  Проверка числового ввода  2 299

•  HEX View  2 630

•  Физический маятник  2 247

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как найти все комьютеры в сети 4



Автор: delphi.mastak.ru

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 }




Похожие по теме исходники

Учет посетителей интернет-салона

Автонастройщик сети

Передача видео по сети

Передача удаленного экрана по сети (Remote Screen)

 



Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте