function EnumerateFunc( hwnd: HWND; lpnr: PNetResource ): Boolean;
var
  hEnum, dwResult, dwResultEnum : DWORD;
  lpnrLocal : array
        [0..16384 div SizeOf(TNetResource)] of TNetResource;
  i : integer;
  cEntries : Cardinal;
  cbBuffer : DWORD;
begin
   centries := 100;
   cbBuffer := 16384;
  dwResult := WNetOpenEnum(
                          RESOURCE_CONTEXT,
                          RESOURCETYPE_DISK,
                          0,
                          lpnr,
                          hEnum
                          );      if (dwResult <> NO_ERROR) then
  begin
    Result := False;
    Exit;
  end;      FillChar( lpnrLocal, cbBuffer, 0 );      dwResultEnum := WNetEnumResource(hEnum,
                                  cEntries,
                                  @lpnrLocal,
                                  cbBuffer);      for i := 0 to cEntries - 1 do
  begin
    Form1.Memo1.Lines.Add( lpnrLocal[i].lpRemoteName );
  end;      dwResult := WNetCloseEnum(hEnum);      if(dwResult <> NO_ERROR) then
  begin
    Result := False;
  end
  else
    Result :=  True;
end;    procedure TForm1.Button1Click(Sender: TObject);
var abc : PNetResource;
begin
   EnumerateFunc(Application.Handle, abc);
end;