K210.ORG

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1124778504&n=5

dmitry501 © (26.08.05 6:58) [34] [Новое сообщение][Ответить]
officeman (25.08.05 21:16) [32]
ААААААА!!!!!!!!!!!!!!!!
Вот смотри:
Открой в Delphi новый проект, кинь на него ListView, установи свойство ViewStyle=vsList, кинь кнопку и напиши код
type
PNetResourceArray = ^TNetResourceArray;
TNetResourceArray = array[0..MaxInt div SizeOf(TNetResource) - 1] of
TNetResource;

procedure EnumResources(LpNR: PNetResource);

// by Nomadic, Михаил Немцов

var

 NetHandle: DWORD;

 BufSize: DWORD;

 Size: DWORD;

 NetResources: PNetResourceArray;

 Count: DWORD;

 NetResult: Integer;

 I: Integer;

 NewItem: TListItem;

begin

 if WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, LpNR, NetHandle) <>

   NO_ERROR then

   Exit;

 try

   BufSize := 50 * SizeOf(TNetResource);

   GetMem(NetResources, BufSize);

   try

     while True do

     begin

       Count := 1;

       Size := BufSize;

       NetResult := WNetEnumResource(NetHandle, Count, NetResources, Size);

       if NetResult = ERROR_MORE_DATA then

       begin

         BufSize := Size;

         ReallocMem(NetResources, BufSize);

         Continue;

       end;

       if NetResult <> NO_ERROR then

         Exit;

       for I := 0 to Count - 1 do

       begin

         with NetResources^[I] do

         begin

           if RESOURCEUSAGE_CONTAINER = (DwUsage and RESOURCEUSAGE_CONTAINER)

             then

             EnumResources(@NetResources^[I]);

           if dwDisplayType = RESOURCEDISPLAYTYPE_SHARE then

             // ^^^^^^^^^^^^^^^^^^^^^^^^^ - ресурс

             // RESOURCEDISPLAYTYPE_SERVER - компьютер

             // RESOURCEDISPLAYTYPE_DOMAIN - рабочая группа

             // RESOURCEDISPLAYTYPE_GENERIC - сеть

           begin

             NewItem := Form1.ListView1.Items.Add;

             NewItem.Caption := LpRemoteName;

           end;

         end;

       end;

     end;

   finally

     FreeMem(NetResources, BufSize);

   end;

 finally

   WNetCloseEnum(NetHandle);

 end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var

 OldCursor: TCursor;

begin

 OldCursor := Screen.Cursor;

 Screen.Cursor := crHourGlass;

 with ListView1.Items do

 begin

   BeginUpdate;

   Clear;

   EnumResources(nil);

   EndUpdate;

 end;

 Screen.Cursor := OldCursor;

end;

 

end.

Запусти, в списке увидишь расшаренные ресурсы в своей сети в виде \\компьютер\шара
Вот и ищи свои файлы в них.
Уф.....

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1124778504&n=5