Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Программный доступ к сетевой папке [D7, WinXP]

mabia © (2008-01-08 11:30:00)
По условию расшаривается сетевая папка на серваке
NetShareAdd(), а вот как присвоить ей атрибут только по
чтению, или полный доступ. Спасибо заранее

Rouse_ (2008-01-09 11:43:00) [1]

> Что в этой строке надо написать вместо ALL?

Для NTFS ничего, я же сказал - выставлением прав...

Ins (2008-01-09 11:16:00) [2]

> Смотри описание функции SetFileSecurity()

Или даже более удобной на мой взгляд SetNamedSecurityInfo

mabia (2008-01-09 10:12:00) [3]
Для Александра Багеля (Rouse_) Задача делается на основе двух
Ваших модулей, сканирование сети (с получением МАС адреса)
и разрешение доступа к сетевым ресурсам по условию. При этом
сетевой ресурс расшаривается динамически в зависимости от
условия.
ShareNT.shi2_netname := TmpNameNT; //Имя
ShareNT.shi2_type := STYPE_DISKTREE; //Тип ресурса
ShareNT.shi2_remark := ''; //Комментарий

ShareNT.shi2_permissions := ACCESS_ALL; //Доступ
Что в этой строке надо написать вместо ALL?

ShareNT.shi2_max_uses := DWORD(-1); //Кол-во максим. подключ.
ShareNT.shi2_current_uses := 0; //Кол-во тек подкл.
GetMem(TmpDirNT, TmpLength);
StringToWideChar(TmpDir, TmpDirNT, TmpLength);
ShareNT.shi2_path := TmpDirNT; //Путь к ресурсу
ShareNT.shi2_passwd := ''; //Пароль
NetShareAddNT(nil,2,@ShareNT, nil); //Добавляем ресурс

Rouse_ (2008-01-09 09:24:00) [4]
Через выставление прав доступа как и для обычной папки. Смотри описание функции SetFileSecurity()

mabia (2008-01-08 14:44:00) [5]
Сервер имеет домен 3 уровня, обращение как по имени так и
по ИПшнику. Сервер Windows2003

Anatoly Podgoretsky (2008-01-08 11:48:00) [6]
> mabia (08.01.2008 11:30:00) [0]

Что за сервер, есть ли домен.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »