Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.08.20;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.091 c
2-1154507733
Id
2006-08-02 12:35
2006.08.20
Word and Delphi


4-1145959330
Ifrit
2006-04-25 14:02
2006.08.20
Не могу получить текст с ThunderRT6ComboBox..


3-1150289387
Still Swamp
2006-06-14 16:49
2006.08.20
Out of memory в TIBQuery и FB


1-1152169596
RDS
2006-07-06 11:06
2006.08.20
Кнопка приложения на панели задач


15-1153419666
Доброже(в|л)атель
2006-07-20 22:21
2006.08.20
Network Boot кто делал? поделитесь опытом!