Discussion :

[sbeu]

Salut.
Je n'arrive pas à modifier des attributs sur un fichier.
J'ai un fichier qui se trouve, par exemple dans c:\bozo\Fichier1.txt
J'ai bien essayé d'utiliser la fonction CreateFile qui renvoie un handle vers un fichier, mais je pédale grave et je n'arrive pas à modifier l'attribut "lecture seule" sur ce fichier.

--->>> Désolé de pourrir le forum, j'ai trouvé!
Voici la fonction:
FileSetAttr('c:\bozo\fichier1.txt'',(not faReadOnly)AND(not faHidden)AND(faArchive));
Vous pouvez bien sur modifier les options des attributs à votre guise

[nouanda]

Avec les fonctions FileGetAttr et FileSetAttr, ca doit marcher

essaie ca pour voir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var fich: file;
    attrs: integer;
begin
assignfile(fich, 'c:\toto.txt')
filemode:=2;  //pas indispensable
reset(fich);
 
Attrs := FileGetAttr(fich);
 
if Attrs and faReadOnly <> 0 then
  FileSetAttr(fich, Attrs - faReadOnly );
end;

[delphi-fan]

question posée il y a 4 jours :
http://www.developpez.net/forums/viewtopic.php?t=75477

A+

[Louis Griffont]

Il faut utiliser la fonction FileSetAttr, ou les procedure de ShellApi, si tu maîtrises !

[nouanda]

c'est bien, on a tous repondu en meme temps...

[Louis Griffont]

Heureusement qu'on s'est pas contredits !

[sbeu]

Merci pour vos réponses.
concernant la fonction Rechercher, vous savez qu'elle est souvent indisponible, et il n'est pas facile de trouver un thread "à la main" .
De plus, je n'ai pas le temps de regarder le forum tous les jours, alors je manque des trucs des fois...