Fórum Compartilhamento de arquivos #179407

por favor é urgente

Posso te ajudar em parte...

Um Abraço
Werlon Goulart



Retorna as unidades mapeadas na Estação com seus Respectivos paths

function GetNetworkDriveMappings(sl : TStrings ) : integer;
// 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;




Desconecta uma unidade mapeada via programação

Function DesconectaRede(Letra:Pchar;Forcada:boolean):String;
// 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;

Saudações, Werlon Goulart

Será q o amigo tem alguma rotina que permita por exemplo ao usuário em determinada estação criar um alias, apontando para o servidor - base de dados, inclusive precisava configurar INIT e Driver.

Atenciosamente,

[quote:fc6d0bf5ea=´Werlon Goulart´]Posso te ajudar em parte...

Um Abraço
Werlon Goulart



Retorna as unidades mapeadas na Estação com seus Respectivos paths

function GetNetworkDriveMappings(sl : TStrings ) : integer;
// 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;




Desconecta uma unidade mapeada via programação

Function DesconectaRede(Letra:Pchar;Forcada:boolean):String;
// 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;[/quote:fc6d0bf5ea]