Copiar fichero con atributos

[angelp4492]

Hola Como estan?

Tengo una duda de como copiar mi fichero con atributos, con estas expresion lo copio donde yo quiera

codigo delphi [-]

copyfile(Pchar(ParamStr(0)),Pchar(Letra+':\archivo.txt'),false);

mi duda es como puedo añadirle ademas que sea de solo lectura, creo q se hace con FileAttr pero lo he intentado y no me sale.

[dec]

Hola,

Puedes usar la función "SetFileAttributes()":


SetFileAttributes('C:\archivo.txt', faReadOnly);

[cHackAll]

Como comentario... faReadOnly es un parámetro utilizado por funciones menos abstractas como la SysUtils.FindFirst. Utilizando la API que nombra Dec, lo correcto sería familizarizarce con constantes como FILE_ATTRIBUTE_READONLY, puede que tengan los mismos valores pero al acostumbrarse se podrían cometer errores lógicos en éstos casos; faSymLink, faAnyFile, FILE_ATTRIBUTE_OFFLINE y FILE_ATTRIBUTE_TEMPORARY.


PD: GetFileAttributes
Saludos