lparameters tcFileName, tlReadOnly, tlHidden, tlSystem #define BIT_READONLY 0 #define BIT_HIDDEN 1 #define BIT_SYSTEM 2 declare integer SetFileAttributes in Win32API ; string @ lpFileName, integer dwFileAttributes declare integer GetFileAttributes in Win32API ; string @ lpFileName if tlReadOnly SetFileAttributes(@tcFilename, bitset(GetFileAttributes(@tcFilename),BIT_READONLY)) else SetFileAttributes(@tcFilename, bitclear(GetFileAttributes(@tcFilename),BIT_READONLY)) endif if tlHidden SetFileAttributes(@tcFilename, bitset(GetFileAttributes(@tcFilename),BIT_HIDDEN)) else SetFileAttributes(@tcFilename, bitclear(GetFileAttributes(@tcFilename),BIT_HIDDEN)) endif if tlSystem SetFileAttributes(@tcFilename, bitset(GetFileAttributes(@tcFilename),BIT_SYSTEM)) else SetFileAttributes(@tcFilename, bitclear(GetFileAttributes(@tcFilename),BIT_SYSTEM)) endifCetin