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.

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;
Au passage sur le lecteur en question, les attributs récupérés n'indiquent pas l'état "read-only".

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 ?