Доступ к папке с паролем

← →
FZ*XupypG (2003-04-20 08:53) [0]

Суть.
В локальной сети имеется расшареный ресурс с паролем на запись.
Как реализовать запись в эту папку, скажем, текста (memo1.lines.savetofile...). Пароль, конечно, есть.

← →
dzmitry_ (2003-04-20 12:55) [1]

procedure OpenShare(const Computer, User, Password: string);
// адчынiць шару, калi яна патрабуе пароль i iмя карыстальнiка
var
NetRes: TNetResource;
begin
FillChar(NetRes,SizeOf(NetRes),0);
NetRes.dwType:=RESOURCETYPE_ANY;
NetRes.lpLocalName:=nil;
NetRes.lpProvider:="";
NetRes.lpRemoteName:=PChar(Computer);
WNetAddConnection2(NetRes,PChar(Password),PChar(User),CONNECT_UPDATE_PROFILE);
end;

Доступ к папке с паролем Найти похожие ветки