Herausfinden ob Festplatte/Wechselmedium schreibgeschutz hat

[hathor]

Zitat von Muetze1:

Funktioniert afaik aber nicht auf Netzwerklaufwerken.

Bei mir geht's damit:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var FreeAvailable, TotalSpace, TotalFree: TLargeinteger;
begin  // Get the free drive space
  GetDiskFreeSpaceEx('Z:\', FreeAvailable, TotalSpace, @TotalFree);

  ShowMessage('Drive Z has ' + IntToStr(FreeAvailable div 1024) +
    'Kb of free space');
end;