Tá na mão!!!!!
function MapeaPasta(Server,Alias,senha:Pchar): String;
//
// mapea uma pasta via programação
//
// usea-a assim:
// MapeaPasta('\\ALPHAMG01\Extra','E:',' ')
//
var
err : DWord;
PServer, PSenha, PLetra : PChar;
Begin
PServer := Server;
PLetra := Alias;
PSenha := senha;
ERR := WNetAddConnection ( PServer , PSenha , PLetra );
case ERR of
ERROR_ACCESS_DENIED : result := 'Acesso negado.';
ERROR_ALREADY_ASSIGNED : result := 'A letra do drive
especificada já está conectada.';
ERROR_BAD_DEV_TYPE : result := 'O tipo de dispositivo e o
tipo de recurso não são compatíveis.';
ERROR_BAD_DEVICE : result := 'Letra inválida.';
ERROR_BAD_NET_NAME : result := 'Nome do servidor não é
válido ou não pode ser localizado.';
ERROR_BAD_PROFILE : result := 'Formato incorreto de
parâmetros.';
ERROR_CANNOT_OPEN_PROFILE : result := 'Conexão permanente não
disponível.';
ERROR_DEVICE_ALREADY_REMEMBERED : result := 'Uma entrada para o
dispositivo especificado já está no perfil do usuário.';
ERROR_EXTENDED_ERROR : result := 'Erro de rede.';
ERROR_INVALID_PASSWORD : result := 'Senha especificada
inválida.';
ERROR_NO_NET_OR_BAD_PATH : result := 'A operação não foi
concluída porque a rede não foi inicializada ou caminho é inválido.';
ERROR_NO_NETWORK : result := 'A rede não está
presente.';
else
result := 'A Conexão '+ server+ ' na unidade '+ Alias+' Foi efetuada
corretamente';
end;
end;
function GetNetworkDriveMappings(sl : TStrings ) : integer;
//
// Retorna as unidades mapeadas na Estação com seus
// Respectivos paths
//
// Ex:
// procedure TForm1.Button1Click(Sender: TObject);
// var
// sl : TStrings;
// nMappingsCount,
// i : integer;
// begin
// sl := TStringList.Create;
// nMappingsCount := GetNetworkDriveMappings( sl );
// for i := 0 to nMappingsCount-1 do
// begin
// Listbox1.items.Add(PChar(sl.Strings[ i ] )+ ' Network drive
mappings');
// end;
// sl.Free;
// end;
//
var
i : integer;
sNetPath : string;
dwMaxNetPathLen : DWord;
begin
sl.Clear;
dwMaxNetPathLen := MAX_PATH;
SetLength( sNetPath,dwMaxNetPathLen );
for i := 0 to 25 do
begin
if (NO_ERROR = Windows.WNetGetConnection(PChar('' + Chr(65 + i) +
':'),PChar(sNetPath),dwMaxNetPathLen ) )then
begin
sl.Add( Chr( 65 + i ) + ': ' + sNetPath );
end;
end;
Result := sl.Count;
end;
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
-----Mensagem original-----
De: [email protected] [mailto:[EMAIL PROTECTED]
nome de Igor Alexandre
Enviada em: terça-feira, 21 de março de 2006 20:57
Para: delphi-br
Assunto: [delphi-br] compartilhamento de pastas
Alguém sabe como criar um compartilhamento de pasta diretamente pelo delphi?
Igor Alexandre.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
