Mapeando uma unidade de rede
O objetivo desta dica é mostrar como é possível com o Delphi mapear uma unidade de rede em algumas linhas de código. No evento OnClick de um botão insira o seguinte código:
procedure TForm1.Button1Click(Sender: TObject);
var
NRW: TNetResource;
begin
with NRW do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName := 'H:';// onde H é a letra do drive a ser adicionado.
lpRemoteName := '\\computador\c';// computador é o nome do computador da rede a ser mapeado.
lpProvider := '';
end;
WNetAddConnection2(NRW, 'senha', 'usuario', CONNECT_UPDATE_PROFILE);
end;
