Détecter si le fichier est en lecture seule

Detecter si le fichier est en lecture seule

Detecter si le fichier est en lecture seule : Plusieurs milliers de conseils pour vous faciliter la vie.

La fonction suivante renvoie True si un fichier est en lecture seule.

la fonction IsReadOnly(const FileName: string): Boolean
var
& nbsp sr: TSearchRec
begin
& nbsp (* Supposons pas en lecture seule *)
& nbsp Result := False

& nbsp si FindFirst(nom de fichier, faAnyFile, sr) = 0, alors
& nbsp commencer
& nbsp & nbsp & nbsp Resultat := (sr.Attr et faReadOnly) <> 0
& nbsp & nbsp & nbsp FindClose(sr)
& nbsp fin
fin