Buscar

Como desconectar unidade de rede?

Código

Function DesconectaRede(Letra:Pchar;Forcada:boolean):String;
//
// Disconecta uma unidade mapeada via programação
//
// Letra = Letra atribuida a unidade
// Forcada = Força o cancelamento do mapeamento
//
begin
WNetCancelConnection2(Letra,0,Forcada);
Case GetLastError() of
  1205: Result := 'Não foi possível abrir o perfil';
  1206: Result := 'Perfil do usuário não encontrado ou inválido';
  1208: Result := 'Ocorreu um Erro específico na rede';
  2138: Result := 'Rede não encontrada ou fora do ar';
  2250: Result := 'Mapeamento inválido ou não encontrado';
  2401: Result := 'Existem muitos arquivos abertos';
else
  Result := 'Unidade disconectada com sucesso';
end;
end;  

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Rede
Adicionada dia: 05/06/03
Por: Felipe Monteiro
Visualizada: 3656 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009