Ver Mensaje Individual
  #10  
Antiguo 14-02-2005
zerelho zerelho is offline
Miembro
 
Registrado: mar 2004
Posts: 28
Reputación: 0
zerelho Va por buen camino
Una posible solucion

Bueno yo al final lo medio soluccioné, me desconecto de la BD e intento acceder al fichero access abriendolo en modo exclusivo y si me da error (dando por supuesto que el fichero existe) es que ya existe otro usuario o aplicación utilizando el fichero (la BD).

Código Delphi [-]
FUNCTION FicheroAbierto(NomFich:String):Boolean;
BEGIN
    Try
      With TFileStream.Create(NomFich, fmOpenRead or fmShareExclusive) Do Free;
      Result := FALSE;
    Except
      Result := TRUE;
      End;
END;

No se si existe otra forma mejor de hacerlo.

Última edición por zerelho fecha: 15-02-2005 a las 20:19:54.
Responder Con Cita