نقل قول نوشته شده توسط rezaTavak
چطوری چک میکنید؟
اگر برنامه دفترچه تلفن رو دیده باشید ، در اول برنامه یکسری کارهایی رو انجام میده مثل :
1 - چک کردن وجود بانکها
2 - چک کردن وجود ایندکسها
3 - چک کردن باز شدن سالم بانکها همراه با ایندکسها
و . . .

در همین مرحله یکی از کارها توسط این تابع هست 


FUNCTION CanOpenExclusive

********************************************

   RtrnCanOpen  = .T.

   ErrorCommand = ON( 'ERROR' )

   ON ERROR STORE .F. TO RtrnCanOpen

   FOR Count = 1 TO NoOfDbfs

      USE DbfsPath + IIF( Count > RootDbfs,ActiveDbfYear,'')+ AliasName(Count) + '.DAT' EXCLUSIVE

      IF RtrnCanOpen = .F.

         EXIT

      ENDIF

   ENDFOR

   CLOSE DATABASES

   ON ERROR &ErrorCommand

RETURN( RtrnCanOpen )