подключение сетевого диска

← →
levi (2003-05-08 13:35) [0]

Помогите, пожалуйста! Может, кто с этим встречался?
Нужно подключить сетевым диском один из серверов (тут, правда, не задачка – сеть аркнетовская, ну дык, другой нет). Счастливо нахожу на форуме, что все делается легко и просто (ура!), практически передираю. Вот текст программки:

procedure TForm_Podkl.FormActivate(Sender: TObject);
var nw :TNetResource;
Err :Cardinal;
begin

nw.dwScope:=RESOURCE_GLOBALNET;
nw.dwType:=RESOURCETYPE_DISK;
nw.dwDisplayType:=RESOURCEDISPLAYTYPE_GENERIC;
nw.dwUsage:=RESOURCEUSAGE_CONNECTABLE;
nw.lpLocalName:=PChar("Z");
nw.lpRemoteName:=PChar("\\Server1\vol4\VOL4\ARM\KTI0\");
nw.lpProvider:=nil;

Err:=WNetAddConnection2(nw,"40193","19340",0);

If Err=NO_ERROR then
Form_Podkl.Close
else
Form_Podkl.Label1.Caption:="Ошибка подключения диска!!!";
end;

end.

В итоге получаю ошибку подключения диска 487. На что справка мне счастливо сообщает: «You should not receive this error as 486/487 instructions are always enabled.»
Что не так?
Извините, что уж больно подробно :(
За ранее спасибо.

← →
alexvan © (2003-05-12 15:17) [1]

procedure TForm1.FormCreate(Sender: TObject); var ntr : NETRESOURCE; code : DWORD; pw, nm, locname, remname : PChar; begin pw:=StrAlloc(64*SIZEOF(Char)); nm:=StrAlloc(64*SIZEOF(Char)); locname:=StrAlloc(64*SIZEOF(Char)); remname:=StrAlloc(64*SIZEOF(Char)); StrPCopy(locname, "Z:"); StrPCopy(remname, "\\Server1\vol4\VOL4\ARM\KT10"); StrPCopy(pw, "PAROL"); StrPCopy(nm, "LOGIN"); with ntr do begin dwType := RESOURCETYPE_DISK; lpLocalName := locname; lpRemoteName := remname; lpProvider := nil; end; code := WNetAddConnection2(ntr, pw, nm, 0); if NO_ERROR = code then ShowMessage("Есть коннект!!!") else ShowMessage(IntToStr(code)); StrDispose(remname); StrDispose(locname); StrDispose(pw); StrDispose(nm); end;

← →
Deus (2003-05-13 15:14) [2]

Не знаю, как аркнете, но в своё время всё решилось наглым прописываением (и постоянным забиванием - юзеры - дети в комп. клубе ДОСТАЛИ отмену в начале загрузки и подключения к серверу жать ;((() нужных подключений в реестре. Правда, нужна перезагрузка. Но зато дёшево эффективно и сердито.

подключение сетевого диска Найти похожие ветки