bool NoReadOnly(AnsiString ctl){
/* Убрать ReadOnly из атрибутов файлов в каталоге ctl*/
char buf[ 100 ],buf1[ 100 ];
int fnd;
struct ffblk ffb;
char *name;
int atr;

strcpy(buf,ctl.c_str());
strcat(buf,"\\*.*");
atr=FA_DIREC | FA_RDONLY | FA_HIDDEN /*| FA_SYSTEM | FA_LABEL */| FA_ARCH;
fnd=(findfirst(buf,&ffb,atr)== 0 );

name=ffb.ff_name;

while(fnd){
	if(strcmp(name,".")== 0  || strcmp(name,"..")== 0 )
		goto mimo;
	strcpy(buf1,ctl.c_str());
	strcat(buf1,"\\");
	strcat(buf1,name);
	if(ffb.ff_attrib & FA_DIREC){
		NoReadOnly(buf1);
	}else{
        _dos_setfileattr(buf1, 0 );
	}
mimo:
	fnd=findnext(&ffb)== 0 ;
}
return  1 ;
}