Mapear Unidade de Rede

Delphi

22/02/2009

Olá,
Pesquisei aqui no fórum e encontrei este código para mapear unidade de redes:
procedure TForm1.Button1Click(Sender: TObject);
var
NRW: TNetResource;
begin
with NRW do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName := ´G:´;
lpRemoteName := ´\\servidor\c´;
lpProvider := ´´;
end;
WNetAddConnection2(NRW, ´MyPassword´, ´MyUserName´, CONNECT_UPDATE_PROFILE);
end;

Mas, como faço para o meu aplicativo capturar as strings ´MyPassword´ e ´MyUserName´ direto do Windows?
Se alguém puder ajudar, obrigado.
Bom carnaval a todos.

Att
Dalton


Dbergkamps10

Dbergkamps10

Curtidas 0

Respostas

Dbergkamps10

Dbergkamps10

22/02/2009

upping...


GOSTEI 0
POSTAR