Olá pessoal,
Segue abaixo o codigo de uma rotina que eu adaptei para poder criar um mapeamente para uma pasta compratilhada na rede. Isso é útil quando em sua aplicação, por algum motivo você deve guardar arquivos em uma pasta no servidor. No meu caso eu salvava em uma pasta na rede protegida por senha os templates de arquivo para biometria.
var
err : DWord;
PServer, PSenha, PLetra : PChar;
Begin
PServer := '\\maquinanarede\pastacompartilhada' + #0;
PLetra := 'Z:';
PSenha := '';
ERR := WNetAddConnection ( PServer , PSenha , PLetra );
case ERR of
ERROR_ACCESS_DENIED: ShowMessage ( 'Acesso negado.' );
ERROR_ALREADY_ASSIGNED: ShowMessage ( 'A letra do drive especificada já está conectada.' );
ERROR_BAD_DEV_TYPE: ShowMessage ( 'O tipo de dispositivo e o tipo de recurso não são compatíveis.' );
ERROR_BAD_DEVICE: ShowMessage ( 'Letra inválida.' );
ERROR_BAD_NET_NAME: ShowMessage ( 'Nome do servidor não é válido ou não pode ser localizado.' );
ERROR_BAD_PROFILE: ShowMessage ( 'Formato incorreto de parâmetros.' );
ERROR_CANNOT_OPEN_PROFILE: ShowMessage ( 'Conexão permanente não disponível.' );
ERROR_DEVICE_ALREADY_REMEMBERED: ShowMessage ( 'Uma entrada para o dispositivo especificado já está no perfil do usuário.' );
ERROR_EXTENDED_ERROR: ShowMessage ( 'Erro de rede.' );
ERROR_INVALID_PASSWORD: ShowMessage ( 'Senha especificada inválida.' );
ERROR_NO_NET_OR_BAD_PATH: ShowMessage ( 'A operação não foi concluída porque a rede não foi inicializada ou caminho é inválido.' );
ERROR_NO_NETWORK: ShowMessage ( 'A rede não está presente.' );
else
ShowMessage ('Erro não especificardo');
end;
end;
Bem espero que seja útil para vocês, no meu caso resolveu um problemão.
Abraços pessoal e até a próxima QUICK TIP
