Форум: "Сети";
Поиск по всему сайту: 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.041 c
1-42731           Kurt                  2002-01-29 23:13  2002.02.14  
Связь между приложениями


7-42888           Русский               2001-11-10 00:35  2002.02.14  
Поделитесь кодом а :)))


3-42699           Ольга                 2002-01-22 14:19  2002.02.14  
У меня есть такая процедура


1-42753           GorA                  2002-01-31 11:06  2002.02.14  
Статические методы?


3-42660           Voi                   2002-01-18 21:29  2002.02.14  
Вот ЗАДАЧА!!!