Inicio > Visual Fox Pro (API de Windows) > Verificar si el archivo se puede abrir de manera Exclusiva

Verificar si el archivo se puede abrir de manera Exclusiva


Devuelve .T., esta bloqueado por otra aplicacion, util para saber si el archivo se encuentra bloqueado.

? EstaBloqueado(“c:\archivoprueba.dbf”)

Function EstaBloqueado(m.ccArchivo)
 Declare Long _lopen In “kernel32” as lOpen String lpPathName, Long iReadWrite
 Declare Long _lclose In “kernel32” as lClose Long hFile
 Local hFile As Long
 hFile = -1
 hFile = lOpen(m.ccArchivo, 0x10)
 Result = hFile = -1
 lClose (hFile)
 Return Result
Endfunc

  1. Aún no hay comentarios.
  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: