Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Вниз

Как расшарить папку?   Найти похожие ветки 

 
Morfein   (2002-11-11 22:35) [0]

Уважаемые мастера Delphi!

Недавно возник вопрос, как РАСШАРИТЬ ПАПКУ???
Подскажите или общую идею, или хотя бы где искать!


Заранее благодарю!


 
apay   (2002-11-12 02:24) [1]

читай в хелпах про NetShareAdd


 
Hardkiller   (2002-11-12 19:40) [2]

apay, мог бы и по подробней
нужна то всего одна функция, дело в том, что меня этот вопрос тоже интересует


 
apay   (2002-11-12 23:30) [3]

вроде об этом в форуме (не только на этом) писали неоднократно.
можно использовать NetShareAdd или NetShareSetInfo

...
{$IFDEF WINNT}
const netdll = "netapi32.dll"
{$ELSE}
const netdll = "svrapi.dll"
($ENDIF}

function NetShareAdd( Server: PWideChar; Level: Integer; var Buf; Parm_err: PDWORD ): Integer; stdcall; external netdll ;

function NetShareSetInfo( Server: PWideChar; Level: Integer; var Buf; Parm_err: PDWORD ): Integer; stdcall; external netdll ;

type
TShareInfo2 = record
shi2_netname: PWideChar;
shi2_type: DWORD
shi2_remark: PWideChar;
shi2_permissions: DWORD
shi2_max_uses: DWORD
shi2_current_uses: DWORD
shi2_path: PWideChar;
shi2_passwd: PWideChar;
end;

var
si: TShareInfo2;

...
si.shi2_netname := "MySharedFolder";
si.shi2_type := STYPE_DISKTREE;
si.shi2_remark := "Any Comment";
si.shi2_permissions := ACCESS_ALL; // see WinAPI help
si.shi2_max_uses := -1; // unlimited uses
si.shi2_current_uses := 0;
si.shi2_path := "C:\SharedFolder";
si.shi2_passwd := "..."; //any password for share
NetShareAdd( nil, 2, si, nil );


в win98 эти ф-ии находятся svrapi.dll а в winnt в netapi32.dll.
vожно проверять версию windows и динамически грузить ту или иную DLL.


 
Morfein   (2002-11-13 00:25) [4]

Функция NetShareAdd работает только под NT...
А мне надо чтоб под всеми виндами... кроме 3.11 конечно :)

2 hardkiller : чё там по подпобней... читай help...



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.03 c
1-85917
Grisha
2002-12-17 11:18
2002.12.26
Обработка события


7-86197
Eduard_
2002-10-22 10:16
2002.12.26
Active Directory Services


1-86026
ppcat
2002-12-15 11:50
2002.12.26
StringGrid, удалить строку.


8-86045
Дельфятник
2002-09-10 13:39
2002.12.26
Как перекрасить в картинке все точки белого цвета в заданный?


14-86092
dimich1978
2002-12-04 13:44
2002.12.26
Trial (work while IDE is running)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский