Herausfinden ob Festplatte/Wechselmedium schreibgeschutz hat

[ErazerZ]

z.B.:

Delphi-Quellcode:

const
  sDevice   = 'C:\';
  sFileName = sDevice + 'tmp_EZ_%d.txt';
var
  hFile: THandle;
  sTempFileName: string;
begin
  Randomize;
  sTempFileName := Format(sFilename, [Random(High(Integer))]);
  hFile := CreateFile(PAnsiChar(sTempFileName), GENERIC_WRITE, FILE_SHARE_WRITE, nil, OPEN_ALWAYS, 0, 0);
  if (hFile <> INVALID_HANDLE_VALUE) then
  begin
    ShowMessage('Habe schreibrechte..' + sTempFileName);
    CloseHandle(hFile);
    DeleteFile(sTempFileName);
  end else
    ShowMessage('Keine schreibrechte ' + sTempFileName);

.. es geht aber auch einfacher