| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

програмно открыть доступ к ресурсам

Gnoll ©   (2006-07-29 22:13:00) 

как програмно открыть папке полный Общий доступ для всех пользователей локальной сети?????

---

AbrosimovA   (2006-07-31 08:13:00) [1]

uses ActiveX, ActiveDs_TLB, ComObj;

function GetObject(const Name: string): IDispatch;
var
 Moniker: IMoniker;
 Eaten: integer;
 BindContext: IBindCtx;
 Dispatch: IDispatch;
begin
 OleCheck(CreateBindCtx(0, BindContext));
 OleCheck(MkParseDisplayName(BindContext,
                             PWideChar(WideString(Name)),
                             Eaten,
                             Moniker));
 OleCheck(Moniker.BindToObject(BindContext, NIL, IDispatch,
           Dispatch));
 Result := Dispatch;
end;

function AddNewShare(ComputerName, Domain, NameShare, Path: string): string;
var
 Comp: IADsContainer;
 Share: IADsFileShare;
begin
 Comp:=GetObject('WinNT://'+Domain+'/'+ComputerName+'/lanmanserver') as
                                 IADsContainer;
 Share:=Comp.Create('fileshare', NameShare) as IADsFileShare;
 Share.Path:=Path;
 Share.SetInfo;
end;

procedure TForm1.btnAddShareClick(Sender: TObject);
begin
Statusbar1.SimpleText:=AddNewShare('Server','WorkGroup','C','C:\');
end;

---

PSPF2003   (2006-07-30 18:16:00) [2]

www.Pspf2003.narod.ru/NetAPI.rar

5191 Б

---

PSPF2003   (2006-07-30 07:52:00) [3]

Могу дать примеры

---

Наверх