Rede - autenticar a um servidor que pede senha

Top  Previous  Next

 

function NetConnect(NetworkPath, UserPassword: string): Boolean;

var

  nrResource: Tnetresource;

begin

  nrResource.dwType      := ResourceType_Disk;

  nrResource.lpLocalName := nil;

  nrResource.lpRemoteName:= PChar(NetworkPath);

  nrResource.lpProvider  := nil;

  // para logar com usuario e senha definidos

  Result                 := (WNetAddConnection2(nrResource,PChar(Password),PChar(User),0) = NO_ERROR);

  // para abrir a tela de login ao tentar conectar

  Result                 := (WNetAddConnection2(nrResource,nil,PChar(User),CONNECT_INTERACTIVE+CONNECT_PROMPT) = NO_ERROR);

end;