*Под W2000 работает 
* определения из WINNT.H (VS6) 
#define FILE_ATTRIBUTE_READONLY 0x00000001 
#define FILE_ATTRIBUTE_HIDDEN 0x00000002 
#define FILE_ATTRIBUTE_SYSTEM 0x00000004 
#define FILE_ATTRIBUTE_DIRECTORY 0x00000010 
#define FILE_ATTRIBUTE_ARCHIVE 0x00000020 
#define FILE_ATTRIBUTE_ENCRYPTED 0x00000040 
#define FILE_ATTRIBUTE_NORMAL 0x00000080 
#define FILE_ATTRIBUTE_TEMPORARY 0x00000100 
#define FILE_ATTRIBUTE_SPARSE_FILE 0x00000200 
#define FILE_ATTRIBUTE_REPARSE_POINT 0x00000400 
#define FILE_ATTRIBUTE_COMPRESSED 0x00000800 
#define FILE_ATTRIBUTE_OFFLINE 0x00001000 
#define FILE_ATTRIBUTE_NOT_CONTENT_INDEXED 0x00002000 

DECLARE SHORT SetFileAttributes IN kernel32 STRING lpFileName, INTEGER dwFileAttributes 
* Снять READONLY 
IF SetFileAttributes("c:\program files\microsoft office\office\winword.exe", FILE_ATTRIBUTE_NORMAL) >  0  
? 'ok' 
ENDIF