Hola:
Me podrían ayudar, me pueden decir si puedo usar el PACK en un sistema con base de datos compartida, o de que manera puedo usar un pack, ya se que es de uso exclusivo, pero necesito poner esta instrucción (no solo usar el delete) en Visual FoxPro 6.

Puedes usarlo de la siguiente forma:

Código:

Select "Table1" Use Dbf() Excl Pack

Además prueba poner esto al final de tu código:

Código:

CLOSE DATABASES ALL USE Prueba IF FLOCK() PACK ENDIF

Durante la ejecución del sistema eliminas con DELETE los registros y antes de finalizar intentas bloquear la tabla, si lo logras, eliminas físicamente los registros, en caso negativo (alguien la está ocupando) no lo hará.

Más información de uso del comando Deleted y Pack:
PACK Command
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_foxhelp/html/lngpack.asp
SET DELETED Command
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_foxhelp/html/lngSET_DELETED.asp
Espero que te sirva.
Saludos.