mapeando unidade de rede

[Marostegan 0]

pessoal... belezera?

 

bom, depois de ler alguns artigos crie o seguinte:

 

var
  NRW: TNetResource;
begin
  with NRW do
  begin
	dwType := RESOURCETYPE_ANY;
	lpLocalName := 'H:';	// onde H é a letra do drive a ser adicionado.
	lpRemoteName := '\\note\c';	 // computador é o nome do computador da rede a ser mapeado.
	lpProvider := '';
  end;
  WNetAddConnection2(NRW, 'senha', 'usuario', CONNECT_UPDATE_PROFILE);
end;

esta funcionando certinho, tem alguns ajustes que vou fazer depois, como por exemplo a unidade e o nome do PC remodo será preenchido pelo usuário... mas isso é tranquilo.

 

 

- Minha dúvida:

 

Quero que quando eu executo o sistema ele verifica, caso esse mapeamento já existir entao ele executa o form f_principal caso o mapeamento nao exista entao ele cria...

 

e tambem caso ele nao encontre o pc na rede que ele retorne um erro...

 

como fazer isso?

[marcio.theis 3]

Tente usar uma validação desta forma:

if (not DirectoryExists('H:\')) then

Ou seja, se o diretório não exisitir, então você cria ele.

[Marostegan 0]

Tente usar uma validação desta forma:

if (not DirectoryExists('H:\')) then

Ou seja, se o diretório não exisitir, então você cria ele.

 

certo, funciono!

 

 

agora veja o problema que estou tendo.

 

meu sistema precisa desse mapeamento pra funcionar... entao quando executo ele mapeia e talz... só que assim que eu executo ele da erro de conexao com o bd porque ele nao encontra (afinal ainda nao tah mapeado)... como "desligar" meu data module e só "ligar" depois que o comando que postei aqui for executado?

 

valew... abracoss!

[marcio.theis 3]

Deixe no projeto desconectado, e somente depois que fizer as validações necessarias, conecte.

[Marostegan 0]

Deixe no projeto desconectado, e somente depois que fizer as validações necessarias, conecte.

 

hummm... como assim?