Форум: "Сети";
Поиск по всему сайту: 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.047 c
1-42725           Tkach                 2002-01-16 11:40  2002.02.14  
Документ в формате RTF


1-42796           Leo^Sun               2002-01-31 21:03  2002.02.14  
Переменная String


1-42777           Yuraz                 2002-01-31 14:46  2002.02.14  
Подскажите, как загрузить картинку в Image не с самого начала координат (0,0; лево-вверх)


3-42689           ТеньЛуны              2002-01-18 11:40  2002.02.14  
Что такое DataCube?


1-42755           Василий Свиридов      2002-01-31 03:20  2002.02.14  
Этот вопрос скорее всего уже всплывал....