Форум: "Начинающим";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];

Вниз

програмно открыть доступ к ресурсам   Найти похожие ветки 

← →
Gnoll   (2006-07-29 22:13) [0]

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

---

← →
PSPF2003 ©   (2006-07-30 07:52) [1]

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

---

← →
PSPF2003 ©   (2006-07-30 18:16) [2]

www.Pspf2003.narod.ru/NetAPI.rar

5191 Б

---

← →
AbrosimovA ©   (2006-07-31 08:13) [3]

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;

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];

Наверх

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