По условию расшаривается сетевая папка на серваке
NetShareAdd(), а вот как присвоить ей атрибут только по
чтению,  или полный доступ. Спасибо заранее

> mabia  (08.01.2008 11:30:00)  [0]

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

Сервер имеет домен 3 уровня, обращение как по имени так и
по ИПшнику. Сервер Windows2003

Через выставление прав доступа как и для обычной папки. Смотри описание функции SetFileSecurity()

Для Александра Багеля (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); //Добавляем ресурс

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


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

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

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