procedure TForm1.Button2Click(Sender: TObject);
type TNetResourceArray = ^TNetResource;
var NetResource : TNetResource;
    hr,ecount,BUFSIZE,x: dword;
    hEnum: THandle;
    buf : POINTER;
    ResArray : TNetResourceArray;
    ResList : TStringList;
    username: string ;
begin
  username:='\\192.168.1.1';
  FillChar(NetResource,  SizeOf(NetResource),  0);
  NetResource.lpRemoteName:=@username[1];
  resList:=TStringList.Create;
  hr:=wnetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,RESOURCEUSAGE_CONNECTABLE,@NetResource,hEnum);
  if hr=NO_ERROR then
     while true do begin
        BUFSIZE:=8192;
        GETMEM(BUF,BUFSIZE);
        ecount := $FFFFFFFF;
        hr := WNetEnumResource(hEnum,ecount,pointer(buf),bufsize);
        case hr of
           ERROR_NO_MORE_ITEMS: break;
           NO_ERROR           : begin
                                   ResArray:=TNetResourceArray(buf);
                                   for x:= 0 to ecount-1 do begin
                                      ResList.Add(ResArray^.lpRemoteName);
                                      inc(resArray);
                                   end;
                                end;
           else break;
        end;
     end;      wnetCloseEnum(hEnum);
  FreeMem(buf,bufsize);      if reslist.count >0 then 
     showmessage(reslist.Text);      freeandnil(ResList);
end;