Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Вниз

Права доступа к ресурсу? 


Дмитрий Д.   (2001-11-21 12:22) [0]

Как определить права пользователя на какой нибудь открытый дисковый ресурс ?
например есть сетевой диск и папка на нем расшарена только для чтения, то как это узнать ?
Подскажите плиз!



Дмитрий Д.   (2001-11-21 12:27) [1]

добавочка:
определение прав будет происходить с машины это самого пользователя.
серваки крутятся на NT4.0



Дмитрий Д.   (2001-11-22 12:41) [2]

неужели ни кто не сталкивался с такой задачей ?
грубо говоря мне нужно отследить ошибку при удалении,создании или изменении файлов не распределенных ресурсах серваков через мою прогу и указать пользователю в чем конкретно причина .
может кто то делал нечто подобное ?



Deep   (2001-11-24 08:43) [3]

Вот тебе примерчик и ссылочка где это лежит
http://delphi.xonix.ru/faq/lan/share02.shtml

Примечание : Вы должны быть в группе адимнистраторов или Account Operators на выбранном компьютере


Type
_SHARE_INFO_2 = Record
shi2_netname: PWideChar;
shi2_type: DWORD;
shi2_remark: PWideChar;
shi2_permissions: DWORD;
shi2_max_uses: Integer;
shi2_current_uses: DWORD;
shi2_path: PWideChar;
shi2_passwd: PWideChar;
End;
SHARE_INFO_2 = _SHARE_INFO_2;

Function NetShareAdd (

servername: PWideChar;
level: DWORD;
buf: Pointer;
parm_err: LPDWORD
): LongInt; stdcall; external "netapi32.dll";

Function NetShareDel (

servername: PWideChar;
netname: PWideChar;
reserved: DWORD
): LongInt; stdcall; external "netapi32.dll";



// Создаем сетевой диск
Procedure AddShare;

Var
buf: SHARE_INFO_2;
LocalPath: PWideChar;
Size: Integer;
ServerName:PWideChar;
Begin
ServerName:="Server";
// Переводим String в WideChar
Size := SizeOf (WideChar) * 256;
GetMem (LocalPath, Size);
StringToWideChar (diskpath.Text, LocalPath, Size);

// сетевое имя диска (Будет доступен как \\Server\diskname)
buf.shi2_netname := "diskname";
buf.shi2_type := STYPE_DISKTREE;

// Коментарий
buf.shi2_remark := "comment";
buf.shi2_permissions := ACCESS_ALL;

// Неограниченное кол-во одновременно работающих пользователей
buf.shi2_max_uses := -1;

// Каталог на сервере
buf.shi2_path := LocalPath;
buf.shi2_current_uses := 1;
buf.shi2_passwd := "";

If NetShareAdd (ServerName, 2, @buf, Nil) <> 0
Then showmessage ("Ошибка при создании сетевого диска");
FreeMem (LocalPath);
End;



// Удаляем сетевой диск
Procedure DelShare;

Begin
If NetShareDel (Nil, "diskname", 0) <> 0
Then ShowMessage ("Ошибка при удалении сетевого диска");
End;

P.S. У меня была та же проблема, но с 98-й виндой, ответа так и не получил :((




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.035 c
1-42776           Елена                 2002-01-31 12:39  2002.02.14  
Слова строки


1-42765           kingdom               2002-01-30 14:40  2002.02.14  
Нужен TShape нестандарной формы, как это сделать?


6-42823           Den111                2001-11-15 09:22  2002.02.14  
Передача файлов через модем


1-42746           UserL                 2002-01-29 08:27  2002.02.14  
Помогите, плиз...


14-42850          Filat                 2001-12-26 11:41  2002.02.14  
Модератору!