Fijate con ésto, cuenta la cantidad de ventanas de la misma clase, tendrías que reemplazar donde dice "MiPrograma" por el nombre de tu ejecutable (el nombre del proyecto). Por lo general en VFP las clases de ventanas generadas son NombreDelExe + 6c000000 en algunos casos puede variar.
DECLARE Long FindWindowEx IN User32 Long hWnd1, Long hWnd2, String lpsz1, String lpsz2
hhWnd=0
hwnd=FindWindowEx(0,0,"MiPrograma6c000000","")
DO WHILE hwnd<>0
hwnd=FindWindowEx(0,hwnd,"Haberes6c000000","")
hhWnd=hhWnd+1
ENDDO
IF (hhWnd>2)
MSGBOX("Sólo puede ejecutarse una sesión por sistema."+CHR(13)+CHR(13)+"Salga de otras sesiones que tenga abiertas y ejecute nuevamente.",0+16,"¡Atención!")
QUIT
ENDIF
