Как расшарить папку?

← →
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...

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