Function Kunci_Fi(Dly) Local Dly1 dly=IIF(PCOUNT()=0,5,dly) Dly=Dly*100 Dly1=Dly DO Whil .T. DO Whil Dly>0 AND INKEY()<>27 If Flock() Return(.T.) Endif Dly=Dly-1 ENDDO IF MESSAGEBOX('User lain sedang menggunakan secara Exclusive',5,'File Locking')=2 RETURN (.F.) ENDIF Dly=Dly1 Loop EndDO Return(.F.) ENDFUNC