Hola lo ke puedes hacer es verificar ke este o no la tabla abierta.....
como..??
like this....
LOCAL archivo_abierto
archivo_abierto = FOPEN('reactivos.dbf',2)
IF archivo_abierto = -1 &&alquien lo esta usando
se_esta_usando = .t.
***Poner mensaje aqui o tomar alguna accion
ntipodedialogo=0+16+256
ctitulo='Negativo abrir más de dos veces el software.'
ctexto='Tienes dos Software L&L abiertos, Solo puedes ocupar uno. Gracias'
nrespuesta=MESSAGEBOX(ctexto,ntipodedialogo,ctitulo)
QUIT
ELSE
=FCLOSE(archivo_abierto) &&Hay que cerrarlo , puer fopen lo abre
se_esta_usando = .F.
do form "c:\agregar_profes.scx"
ENDIF
? _EstaActiva('Calculadora')
* NOTA: Como parámetro debo enviar el caption de la aplicación
* que quiero verificar si está activa.
Function _EstaActiva(tcCaption)
DECLARE INTEGER FindWindow in WIN32API ;
STRING cNULL, ;
STRING cWinName