Código Delphi
[-]
function TDModulo.ConectaRed: boolean;
var
RecursoRed: _NETRESOURCE;
Resultado: Word;
begin
Resultado := NO_ERROR;
Conectado := false;
with RecursoRed do
begin
dwType := RESOURCETYPE_DISK;
LpLocalName := nil;
LpRemoteName := Pchar(DirServer); LpProvider := nil;
end;
Resultado := WNetAddConnection2(
RecursoRed, PChar(Contrasenia), PChar(Usuario), CONNECT_UPDATE_PROFILE );
---------------------------------
try
if not Resultado in [NO_ERROR, ERROR_ALREADY_ASSIGNED] then
raise EInvalidOperation.Create('');
with Sesion do begin
NetFileDir := DirServer + '\NET';
PrivateDir := ObtenWindowsTemp;
end;
with DataBase do begin
Params.Clear;
Params.Add('PATH=' + DirServer);
Params.Add('DEFAULT DRIVER=PARADOX');
Params.Add('ENABLE BCD=FALSE');
Connected := true;
end;
Conectado := true;
except
ShowMessage('No se ha podido establecer una sesion en red para el sistema' + #13 +
'posiblemente el servidor no este funcionando en este momento o' + #13 +
'existe un error en la configuracion, por favor verifique y vuelva a intentar.');
Conectado := False;
end;
Result := Conectado;
end;
Mira a ver si con este código te solucionas el problema.
Un Saludo.