| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как расшарить папку? [D1, D2, D3, D4, WinME, Win2k]
Morfein © (2002-11-11 22:35:00)Уважаемые мастера Delphi!
Недавно возник вопрос, как РАСШАРИТЬ ПАПКУ???
Подскажите или общую идею, или хотя бы где искать!
Заранее благодарю!
Morfein (2002-11-13 00:25:00) [1]Функция NetShareAdd работает только под NT...
А мне надо чтоб под всеми виндами... кроме 3.11 конечно :)
2 hardkiller : чё там по подпобней... читай help...
apay (2002-11-12 23:30:00) [2]вроде об этом в форуме (не только на этом) писали неоднократно.
можно использовать 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.
Hardkiller (2002-11-12 19:40:00) [3]apay, мог бы и по подробней
нужна то всего одна функция, дело в том, что меня этот вопрос тоже интересует
apay (2002-11-12 02:24:00) [4]читай в хелпах про NetShareAdd
| |
