Bonjour
Je constate quelque chose d'étrange mais qui a peut-être un sens caché.
Sous Windows 8.1, je choisis un fichier iso (l'install de Delphi par exemple) et avec un clic droit je monte l'image comme un lecteur de DVD.
Dans Delphi, après avoir récupéré les lettres des lecteurs de type fsremovable, je trouve naturellement la lettre du lecteur monté précédemment.
Mais je ne veux pas récupérer les lettres des lecteurs en lecture seule.
Au passage sur le lecteur en question, les attributs récupérés n'indiquent pas l'état "read-only".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 function IsReadOnly(Folder: string): Boolean; var Fa: TFileAttributes; begin Fa := TDirectory.GetAttributes(Folder); Result := TFileAttribute.faReadOnly in Fa; end; procedure GetRemovableDrives(Lst: TStrings); var S: string; B: Boolean; begin Lst.Clear; for S in TDirectory.GetLogicalDrives do if fsRemovable in FileSystemAttributes(S) then begin B := IsReadOnly(S); if B = False then Lst.Add(S); end; end;
N'ayant pas de lecteur cd physique sur ma machine, je ne sais pas ce que ça donne dans ce cas là.
Y aurait-il une subtilité quelque part là-dedans ?
Partager