Форум: "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
