Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Вниз

Помогите. 


Русский   (2001-11-20 20:44) [0]

Слушайте мужики, можно ли сканя сетевые ресурсы получить список зашаренных папок, на данном компе, если нельзя, то как зная сеть, домен, и имя компа - узнать список зашаренных папок??



Иван Шихалев   (2001-11-20 23:48) [1]

NetEnumResources, если я не ошибаюсь.



$hade   (2001-11-23 09:36) [2]

Вот тебе примерчик :
procedure TMainForm.FormCreate(Sender: TObject);
begin
EnumSubResources(nil);
end;

procedure TMainForm.EnumSubResources(lpNetResource: PNetResource);
const
MAX_RES = 16;
type
PResources = ^TResources;
TResources = array[0..MAX_RES-1] of TNetResource;
var
hEnum: THandle;
Count, BufferSize: DWord;
Res: Integer;
Resources: PResources;
i: Integer;
Name: String;
begin
// Открываем доступ к перечню сетевых ресурсов
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0,
lpNetResource, hEnum);
if NO_ERROR <> Res then Exit;
// Массив, в который читаются сетевые ресурсы
BufferSize := SizeOf(TResources);
GetMem(Resources, BufferSize);
while True do
begin
// Загружаем перечень ресурсов в массив
// Если возникла ошибка, значит, ресурсов больше нет --- покидаем цикл
Count := MAX_RES;
Res := WNetEnumResource(hEnum, Count, Resources, BufferSize);
if (Res <> NO_ERROR) and (Res <> ERROR_MORE_DATA) then Break;
// В противном случае копируем сетевые ресурсы в дерево
for I := 0 to Count - 1 do
begin // Добавляем дочерний узел
if (Assigned(Resources^[I].lpRemoteName)) and
(Resources^[I].dwDisplayType=2) then
begin
Name:=String(Resources^[I].lpRemoteName);
Name:=Copy(Name,3,Length(Name)-2);
CompBox.Items.Add(Name);
end;
// Вызываем процедуру рекурсивно для заполнения этого узла, если узел
содержит подузлы
if ((Resources^[I].dwUsage and RESOURCEUSAGE_CONTAINER) <> 0) and
(Resources^[I].dwDisplayType<>2) then
EnumSubResources(@(Resources^[I]));
end;
end;
FreeMem(Resources);
// Закрываем доступ
WNetCloseEnum(hEnum);
end;




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.022 c
3-42701           Yakudza               2002-01-22 21:39  2002.02.14  
Подскажите, очень срочно надо !!


3-42665           Eduard                2002-01-21 09:47  2002.02.14  
InsertRecord и DateTime


1-42770           HDD                   2002-01-30 05:54  2002.02.14  
Помогите пожалуйста!


1-42749           xmapa                 2002-01-30 13:13  2002.02.14  
User Functions в Quick Report


6-42827           Lamok                 2001-11-22 00:20  2002.02.14  
TServerSocket