Código
Obs.: Escrito em DELPHI 6
// Mapea e conecta a uma unidade de rede
procedure TForm1.button1Click(Sender: TObject);
begin
WNetConnectionDialog(Handle,RESOURCETYPE_DISK);
end;
// Desconecta de uma unidade de rede
procedure TForm1.button2Click(Sender: TObject);
begin
WNetDisconnectDialog(Handle,RESOURCETYPE_DISK);
end;
Espero ter ajudado,
Atenciosamente,
diretivaistemas@isbt.com.br
Simões
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009