var Attribut: Integer; Fichier: String; // le fichier à lire begin Attribut := FileGetAttr(Fichier); // récupère attributs if Attribut and faReadOnly <> 0 then // si lecture seule... FileSetAttr(Fichier, Attribut - faReadOnly); // ...supprime la propriété ReadOnly end;
var Attribut: Integer; // ou Word, moins de place Fichier: String; // le fichier à lire begin Attribut := FileGetAttr(Fichier); // récupère les attributs if Attribut and faReadOnly <> 0 then // si lecture seule... begin Attribut := Attribut and not faReadOnly; FileSetAttr(Fichier, Attribut); // ...supprime ReadOnly end; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question