VPF::Как программно изменить права доступа к папкам?

Zero

Дата 28.11.2006, 09:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

САБЖ. Ни где не могу найти.

Нужно программно, например открыть/закрыть "общий доступ и безопасность" к папкам.

dumb

Дата 28.11.2006, 12:29 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 7
Всего: 158

Share Functions
Access Control

Zero

Дата 28.11.2006, 18:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

В английском хреново понимаю... Но насколько понял, это для win9.x
Мне нужен для XP/Vista
Для них где-нибудь чё-нить есть? smile

Rennigth

Дата 28.11.2006, 19:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 8
Всего: 76

Цитата(Zero @ 28.11.2006, 18:21

)

В английском хреново понимаю... Но насколько понял, это для win9.x
Мне нужен для XP/Vista
Для них где-нибудь чё-нить есть?

Они работают в XP ну и наверно и в вистах, наоборот для 9x они ограниченны.

--------------------

(* Honesta mors turpi vita potior *)

Zero

Дата 28.11.2006, 20:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Хорошо, те функции которые там написаны, кроме того что описание их на английском, ещё и на С++, которая использует свои модули... На делфи переделать не получается. Точнее, типы которые там используются NET_API_STATUS например (первый попавшийся) не работают.
Если вы знаете как это сделать, то приведите просто один маленький пример, хотябы например как сделать одну папку по заданому пути, общедоступной для всех. smile

dumb

Дата 29.11.2006, 01:16 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 7
Всего: 158

http://delphi-faq.zoxt.net/v68.htm

Добавлено @ 01:18
http://articles.org.ru/myfaq/19042003.php#anc22

Zero

Дата 29.11.2006, 02:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Да, написано там (первая ссылка неплохо) но тогда где взять модуль Share? В поисковиках ищется не в тему. Стандартного модуля делфи такого нет.
А во второй ссылке, ничего нет связанного с установкой прав открытия общего доступа, только чтото про создание сетевого диска, но это не то.

dumb

Дата 29.11.2006, 04:15 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 7
Всего: 158

Цитата(Zero @ 29.11.2006, 02:34

)

Да, написано там (первая ссылка неплохо) но тогда где взять модуль Share?

Цитата

...
unit Share;
//©2002 <Repairman> [email protected]
interface
type
TPassw = string[8];
...

Цитата(Zero @ 29.11.2006, 02:34

)

А во второй ссылке, ничего нет связанного с установкой прав открытия общего доступа, только чтото про создание сетевого диска, но это не то.

в первой - для win9x(да-да, тут ставятся пароли), во второй - для winnt и более. в winnt NetShareAdd расшаривает на полный доступ для всех. установкой прав не пахнет ни в первой(потому как 9x), ни во второй ссылке.

пока такой вариант:
ShellExecuteA(0,nil,'shrpubw.exe',nil,nil,0);

M
Girder

Не надо посылать фиг знает куда!
PS: Работа с Share и ACL все енто есть здесь... на форуме!

Zero

Дата 29.11.2006, 10:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(dumb @ 29.11.2006, 05:15

)

пока такой вариант:
ShellExecuteA(0,nil,'shrpubw.exe',nil,nil,0);

Кроме того, что это работа с файлом, она даже для файла ни чего не делает.

Цитата(dumb @ 29.11.2006, 05:15

)

PS: Работа с Share и ACL все енто есть здесь... на форуме!

Girder то что называется "просто работа с Share" вроде есть, а вот конкретно установка общего доступа к папке, покрайней мере я не нашёл. (искал долго и упорно, не только на форуме smile

)

volvo877

Дата 29.11.2006, 10:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 5
Всего: 116

Цитата(Zero @ 29.11.2006, 09:36

)

конкретно установка общего доступа к папке

Код


shellExecute(Handle, nil, 'net', 'share MySharedC=C:\', nil, SW_HIDE);

тоже не работает?

dumb

Дата 29.11.2006, 11:41 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 7
Всего: 158

Цитата(Girder)

M
Girder Не надо посылать фиг знает куда!
PS: Работа с Share и ACL все енто есть здесь... на форуме!

тьпу ты... Girder, ты уж если стираешь, то хоть приводи ссылку на "местные" решения.
после таких "правок" теряешь веру в добро и напрочь отбивается желание пытаться кому-то помочь... user posted image

Цитата(Zero @ 29.11.2006, 10:36

)

Кроме того, что это работа с файлом, она даже для файла ни чего не делает.

откуда ты эти выводы только вытаскиваешь?! это был запуск мастера создания шар.

в поиск по слову SECURITY_DESCRIPTOR...

user posted image

Girder

Дата 29.11.2006, 13:19 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 25
Всего: 155

Цитата(dumb @ 29.11.2006, 11:41

)

тьпу ты... Girder, ты уж если стираешь, то хоть приводи ссылку на "местные" решения.

Вот здесь смотри http://forum.vingrad.ru/act-Search/f-2.html или здесь http://vingrad.ru/DELPHI-DLP-001040 поиск по:
WRITE_DAC
DACL_SECURITY_INFORMATION
NetShareAdd
NetShareDel

Цитата(dumb @ 29.11.2006, 11:41

)

после таких "правок" теряешь веру в добро и напрочь отбивается желание пытаться кому-то помочь...

Да где ж ты помогаешь? Вот первое вбиваю и результат: http://vingrad.ru/DELPHI-DLP-001040 И другое... я также есть smile

--------------------

Как слышим, так и пишим.
Истина где-то там...

Zero

Дата 29.11.2006, 14:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(volvo877 @ 29.11.2006, 11:46

)

код Pascal/Delphi

shellExecute(Handle, nil, 'net', 'share MySharedC=C:\of\', nil, SW_HIDE);

тоже не работает?

Ну я только что создал на диске папку of, после выполнения ничего не произошло.

Цитата(Girder @ 29.11.2006, 14:19

)

Вот первое вбиваю и результат: http://vingrad.ru/DELPHI-DLP-001040 И другое... я также есть

Цитата(dumb @ 29.11.2006, 12:41

)

откуда ты эти выводы только вытаскиваешь?! это был запуск мастера создания шар.

А я думал тот файл это был пример, и вставил заместо свой. smile

Извени Girder, ну этот материал я уже читал из DRKB, ещё после вот этой ссылке:

Цитата(dumb @ 29.11.2006, 02:16

)

http://delphi-faq.zoxt.net/v68.htm

Вот мой ответ на ссылку:

Цитата(Zero @ 29.11.2006, 03:34

)

Да, написано там (первая ссылка неплохо) но тогда где взять модуль Share?

Вот ответ автора ссылки:

Цитата(dumb @ 29.11.2006, 05:15

)

в первой - для win9x(да-да, тут ставятся пароли),

PS: Ну вроде smile

нашёл полезную статью: http://www.delphimaster.ru/articles/netmon/index.html Всё, сейчас её по изучаю, если справлюсь, то приведу пример, если не получится, то продолжу тему.

Это сообщение отредактировал(а) Zero - 29.11.2006, 14:59

Girder

Дата 29.11.2006, 21:22 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 25
Всего: 155

Знаеш... если бы для NT(на счет share) енто было в корне отлично - яб еще понял. А так... енто отговорка smile

--------------------

Как слышим, так и пишим.
Истина где-то там...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »