Доступ к папке с паролем [D6, Win95/98, WinXP]
FZ*XupypG © (2003-04-20 08:53:00)
Суть.
В локальной сети имеется расшареный ресурс с паролем на
запись.
Как реализовать запись в эту папку, скажем, текста
(memo1.lines.savetofile...). Пароль, конечно, есть.
dzmitry_ (2003-04-20 12:55:00) [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;
Наверх 
ЧАТ |
Орешник |
|
