Floppy schreibschutz an oder aus?

[Wheelie]

wenn die floppy noch nicht formatiert wurde, dann nützt dieses verfahren recht wenig.
was anderes fällt mir aber auch nicht ein

Delphi-Quellcode:

function WriteProtected: Boolean;
var
  H: DWord;
begin
  Result := False;
  H := CreateFile(PChar('A:\1_dd_fg_666_4423_4.dojwq'),
                  GENERIC_WRITE,
                  0,
                  nil,
                  CREATE_ALWAYS,
                  0,
                  0);
  Result := (H = INVALID_HANDLE_VALUE);
  CloseHandle(H);
end;