Текущий архив: 2002.12.26;
Скачать: CL | DM;

Вниз

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

← →
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 вся ветка

Текущий архив: 2002.12.26;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.007 c