Delphi 列舉網路資源完整指南：WNetOpenEnum/WNetEnumResource 遞歸掃描工作群組、電腦、共享資料夾與印表機

API 概覽

Windows 網路 API (`mpr.dll`) 提供統一介面列舉「網路鄰居」層級資源：

• WNetOpenEnum(dwScope, dwType, dwUsage, lpNetResource, lphEnum) — 開啟列舉內容，回傳枚舉控制代碼。
• WNetEnumResource(hEnum, lpcCount, lpBuffer, lpBufferSize) — 讀取資源陣列 (`TNetResource`)。
• WNetCloseEnum(hEnum) — 關閉列舉。

關鍵常數：
`RESOURCE_GLOBALNET` (全網路)、`RESOURCETYPE_DISK`/`PRINT`/`ANY`、`RESOURCEUSAGE_CONTAINER` (容器/可繼續列舉)、`RESOURCEUSAGE_CONNECTABLE` (可連接資源)。

三層遞歸結構

1. 頂層：網路類型/提供者 (Microsoft Windows Network, Novell NetWare...)
2. 第二層：工作群組/網域 (Domain/Workgroup 名稱)
3. 第三層：電腦/伺服器 → 第四層：共享資源 (共享資料夾、印表機)

完整列舉單元

unit NetResEnum;

interface
uses Windows, Classes, SysUtils;

function EnumWorkgroups(var List: TStringList): Boolean;      // 取得所有工作群組/網域
function EnumServers(const Workgroup: string; var List: TStringList): Boolean; // 指定群組下的電腦
function EnumShares(const Server: string; var List: TStringList): Boolean;     // 指定電腦的共享資源

implementation

type
  PNetResourceArray = ^TNetResourceArray;
  TNetResourceArray = array[0..0] of TNetResource;

function DoEnum(const NetRes: PNetResource; dwUsage: DWORD; var List: TStringList): Boolean;
var
  hEnum: THandle;
  Buf: Pointer;
  BufSize, Count, Res: DWORD;
  P: PNetResourceArray;
  I: Integer;
begin
  Result := False;
  Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, dwUsage, NetRes, hEnum);
  if Res <> NO_ERROR then Exit;

  BufSize := 8192;
  GetMem(Buf, BufSize);
  try
    repeat
      Count := $FFFFFFFF;
      Res := WNetEnumResource(hEnum, Count, Buf, BufSize);
      if (Res = ERROR_NO_MORE_ITEMS) or (Res <> NO_ERROR) then Break;
      P := PNetResourceArray(Buf);
      for I := 0 to Integer(Count) - 1 do
        List.Add(string(P[I].lpRemoteName)); // 需根據 Unicode/ANSI 版本轉換
      Inc(P, Count);
    until False;
    Result := True;
  finally
    FreeMem(Buf);
    WNetCloseEnum(hEnum);
  end;
end;

function EnumWorkgroups(var List: TStringList): Boolean;
var
  NetRes: TNetResource;
begin
  FillChar(NetRes, SizeOf(NetRes), 0);
  NetRes.dwScope := RESOURCE_GLOBALNET;
  NetRes.dwType := RESOURCETYPE_DISK;
  NetRes.dwUsage := RESOURCEUSAGE_CONTAINER;
  NetRes.lpRemoteName := nil;
  Result := DoEnum(@NetRes, RESOURCEUSAGE_CONTAINER, List);
end;

function EnumServers(const Workgroup: string; var List: TStringList): Boolean;
var
  NetRes: TNetResource;
begin
  FillChar(NetRes, SizeOf(NetRes), 0);
  NetRes.dwScope := RESOURCE_GLOBALNET;
  NetRes.dwType := RESOURCETYPE_DISK;
  NetRes.dwUsage := RESOURCEUSAGE_CONTAINER;
  NetRes.lpRemoteName := PChar(Workgroup); // 指定工作群組
  Result := DoEnum(@NetRes, RESOURCEUSAGE_CONTAINER, List);
end;

function EnumShares(const Server: string; var List: TStringList): Boolean;
var
  NetRes: TNetResource;
begin
  FillChar(NetRes, SizeOf(NetRes), 0);
  NetRes.dwScope := RESOURCE_GLOBALNET;
  NetRes.dwType := RESOURCETYPE_ANY; // 磁碟+印表機
  NetRes.dwUsage := RESOURCEUSAGE_CONNECTABLE;
  NetRes.lpRemoteName := PChar(Server);
  Result := DoEnum(@NetRes, RESOURCEUSAGE_CONNECTABLE, List);
end;

end.

Unicode 相容性注意 (Delphi 2009+)

• API 有 `WNetOpenEnumW` / `WNetEnumResourceW` 寬字元版本，對應 `TNetResourceW` (欄位 `lpRemoteName: PWideChar`)。
• 建議直接呼叫 `W` 版本，避免 ANSI 轉換亂碼：
  `uses Winapi.Windows;` 並宣告 `function WNetOpenEnumW...` `external 'mpr.dll' name 'WNetOpenEnumW';`

常見錯誤與對策

現代替代方案

.NET / Windows Runtime 提供 `System.IO.Directory.EnumerateDirectories(@"\\server\share")`、`Windows.Storage.StorageFolder` 等更高層級、異步、強型別 API。Delphi 可透過 `WinRT` 或 `COM` 互操作使用。

1. 上一篇文章： Delphi 功能權限控制系統：TActionList 統一管理 Action、資料庫驅動啟用/可見屬性、零代碼綁定 UI
2. 下一篇文章： Delphi 字串分割為動態陣列：通用 Split 函數實作與優化版本

Delphi

Delphi OpenGL 實現跳動火焰特效：場景初始化、透視投影、時間回調渲染循環完整教學

利用 Delphi 封裝 OpenGL API，在視窗中渲染

Delphi 自繪 ListBox 兩種視覺風格實作：圓角卡片與圖文混排

前言：OwnerDraw 讓 ListBox 煥然一新 標準

Delphi 實作 BitTorrent 客戶端：核心原始碼架構與關鍵模組解析

自製 BT 下載器核心元件總覽 本專案提供完整的 Delph

IntraWeb 核心元件詳解（5）：TFrame 共用版面與 TIWMenu 選單整合

TFrame 實現共用版面 多頁面共同部分（頁首、頁尾、選單