Как просмотреть все "шары" локальной сети?

← →
Neo09 © (2004-06-05 17:28) [0]

Как в Delphi можно быстро получить список всех расшаренных файлов локальной сети?

← →
е (2004-06-05 18:48) [1]

файлов? или компов?

← →
Neo09 © (2004-06-06 00:40) [2]

Файлов и каталогов на всех компах локальной сети ;)

← →
Ильичев С.А. © (2004-06-06 14:24) [3]

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure AEnumShares(ARoot: TNetResource); var EnumHandle : THandle; Buf : Array[1..1024] of TNetResource; BufSize : Cardinal; Entries : Cardinal; Result : Integer; begin BufSize := SizeOf(Buf); WNetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,0,@ARoot,EnumHandle); Repeat Entries := 1; Result :=WNetEnumResource(EnumHandle,Entries,@Buf,BufSize); If (Result = NO_ERROR) and (Entries = 1) then Begin If Buf[1].dwType=RESOURCETYPE_DISK Then Form1.Memo1.Lines.Append(Buf[1].lpRemoteName) Else AEnumShares(Buf[1]); end; Until (Entries <> 1) or (Result <> NO_ERROR); WNetCloseEnum( EnumHandle ); end; procedure TForm1.Button1Click(Sender: TObject); var NetRoot: TNetResource; begin FillChar(NetRoot,SizeOf(NetRoot),0); AEnumShares(NetRoot); end; end.

Огромное спасибо. :)
А как теперь наиболее эффективно получить список вообще всех файлов. Данная программа выдает список только каталогов первого уровня. Помогите, пожалуйста, очень нужно.

а дальше в етих каталогах искать как и в локальных

FindFirst, FindNext, FindClose.

Как просмотреть все "шары" локальной сети? Найти похожие ветки