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

•  DeLiKaTeS Tetris (Тетрис)  3 915

•  TDictionary Custom Sort  6 019

•  Fast Watermark Sources  5 805

•  3D Designer  8 618

•  Sik Screen Capture  6 144

•  Patch Maker  6 579

•  Айболит (remote control)  6 570

•  ListBox Drag & Drop  5 428

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

•  Графические эффекты  6 780

•  Рисование по маске  5 944

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

•  Canvas Drawing  5 325

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

•  Поворот изображения  4 595

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

•  Paint on Shape  2 494

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

•  Головоломка Paletto  2 692

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

•  Пазл Numbrix  2 289

•  Заборы и коммивояжеры  2 971

•  Игра HIP  1 938

•  Игра Go (Го)  1 854

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

•  Программа укладки плитки  1 919

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

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

•  HEX View  2 367

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

 
скрыть

  Форум  

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

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



Delphi Sources

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



Автор: SmaLL

function EnumerateFunc(hwnd: HWND; hdc: HDC; lpnr: PNetResource): Boolean;
const
  cbBuffer: DWORD = 16384; // 16K is a good size
var
  hEnum, dwResult, dwResultEnum: DWORD;
  lpnrLocal: array
  [0..16384 div SizeOf(TNetResource)] of TNetResource;
    // pointer to enumerated structures
  i: integer;
  cEntries: Longint;
begin
  centries := -1; // enumerate all possible entries

  // Call the WNetOpenEnum function to begin the enumeration.
  dwResult := WNetOpenEnum(
    RESOURCE_CONTEXT, // Enumerate currently connected resources.
    RESOURCETYPE_DISK, // all resources
    0, // enumerate all resources
    lpnr, // NULL first time the function is called
    hEnum // handle to the resource
    );

  if (dwResult <> NO_ERROR) then
  begin
    // Process errors with an application-defined error handler
    Result := False;
    Exit;
  end;

  // Initialize the buffer.
  FillChar(lpnrLocal, cbBuffer, 0);

  // Call the WNetEnumResource function to continue
  //  the enumeration.
  dwResultEnum := WNetEnumResource(hEnum, // resource handle
    DWORD(cEntries), // defined locally as -1
    @lpnrLocal, // LPNETRESOURCE
    cbBuffer); // buffer size

  // This is just printing
  for i := 0 to cEntries - 1 do
  begin
    // loop through each structure and
    // get remote name of resource... lpnrLocal[i].lpRemoteName)
  end;

  // Call WNetCloseEnum to end the enumeration.
  dwResult := WNetCloseEnum(hEnum);

  if (dwResult <> NO_ERROR) then
  begin
    // Process errors... some user defined function here
    Result := False;
  end
  else
    Result := True;
end;




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

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

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

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

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

 



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

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