&& To make exe readonly attribute
LCFILE=curdir()+"ACCOUNTS.EXE"
#DEFINE FILE_ATTRIBUTE_READONLY 0x01
#DEFINE FILE_ATTRIBUTE_HIDDEN0x02
#DEFINE FILE_ATTRIBUTE_SYSTEM0x04
#DEFINE FILE_ATTRIBUTE_DIRECTORY0x10
#DEFINE FILE_ATTRIBUTE_ARCHIVE0x20
#DEFINE FILE_ATTRIBUTE_NORMAL0x80
#DEFINE FILE_ATTRIBUTE_TEMPORARY0x0100
DECLARE INTEGER GetLastError IN kernel32 
DECLARE LONG SetFileAttributes IN WIN32API STRING FileName, LONG FileAttributes
DECLARE LONG GetFileAttributes IN WIN32API STRING FileName
lnFileAttributes = GetFileAttributes (LCFILE)
IF SetFileAttributes (LCFILE, BITOR(lnFileAttributes,FILE_ATTRIBUTE_READONLY)) = 0
   ?GetLastError() && what is value?
   * Error setting attributes
   RETURN .F.
ENDIF
IF lnFileAttributes = -1
   ?GetLastError() && what is value?
   RETURN .F.
ENDIF