var
hr:integer;
nr:TNetResource;
begin
fillchar(nr,sizeof(nr),#0);
nr.lpRemoteName:='//myserver/myshare';
nr.dwScope:=RESOURCETYPE_ANY;
hr:=WNetAddConnection2(nr,'my pass word','my user name',CONNECT_UPDATE_PROFILE);
if hr>0 then exit; //error
end;
由于使用了CONNECT_UPDATE_PROFILE，因此以后在程序里访问，就不会有问题了。
不用时，可以WNetCancelConnection2('//myserver/myshare',CONNECT_UPDATE_PROFILE,true);
