Schreibschutz eines Wechselmediums auslesen

[hathor]

Theoretisch könnte es so funktionieren:

Delphi-Quellcode:

...
 while oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
  if (FWbemObject.WriteProtectOn=false) then
      Writeln('WriteProtectOn OFF')
      else
      Writeln('WriteProtectOn ON');
...

aber möglicherweise wird das in neueren WINDOWS-Versionen nicht angewendet, weil es andere Schreibschutzgründe gibt.