Detectar si el archivo es de sólo lectura
La siguiente función devolverá True si el archivo es de sólo lectura.
la función de IsReadOnly(const FileName: string): Boolean
var
& nbsp sr: TSearchRec
begin
& nbsp (* Asumir no sólo lectura *)
& nbsp Resultado := False
& nbsp si FindFirst(nombre de archivo, faAnyFile, sr) = 0, entonces
& nbsp empezar
& nbsp & nbsp & nbsp Resultado := (sr.Attr y faReadOnly) <> 0
& nbsp & nbsp & nbsp FindClose(sr)
& nbsp final
fin
Detectar si el archivo es de solo lectura
Detectar si el archivo es de solo lectura : Multi-millones de consejos para hacer su vida mas facil.
La siguiente funcion devolvera True si el archivo es de solo lectura.
la funcion de IsReadOnly(const FileName: string): Boolean
var
& nbsp sr: TSearchRec
begin
& nbsp (* Asumir no solo lectura *)
& nbsp Resultado := False
& nbsp si FindFirst(nombre de archivo, faAnyFile, sr) = 0, entonces
& nbsp empezar
& nbsp & nbsp & nbsp Resultado := (sr.Attr y faReadOnly) <> 0
& nbsp & nbsp & nbsp FindClose(sr)
& nbsp final
fin
Detectar si el archivo es de sólo lectura
By Consejos Y Trucos
Detectar si el archivo es de sólo lectura : Multi-millones de consejos para hacer su vida más fácil. 